2 ! { dg-options "-std=f95" }
3 integer,parameter :: i
= 42
4 real,parameter :: x
= 17.
5 complex,parameter :: z
= (1.,2.)
6 complex,parameter :: c1
= (i
, 0.5) ! { dg-error "Fortran 2003: PARAMETER symbol in complex constant" }
7 complex,parameter :: c2
= (x
, 0.5) ! { dg-error "Fortran 2003: PARAMETER symbol in complex constant" }
8 complex,parameter :: c3
= (z
, 0.) ! { dg-error "Fortran 2003: PARAMETER symbol in complex constant" }