libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gfortran.dg / data_value_1.f90
blobcb3e4c3ec2b7e6f389366334c060e136f324f4b7
1 ! { dg-do compile }
2 ! Test the fix for PR40402, in which it was not detected that X
3 ! is not a constant and so the DATA statement did not have
4 ! a constant value expression.
6 ! Modified dg-error for PR41807
8 ! Contributed by Philippe Marguinaud <philippe.marguinaud@meteo.fr>
10 TYPE POINT
11 REAL :: X
12 ENDTYPE
13 TYPE(POINT) :: P
14 DATA P / POINT(1.+X) / ! { dg-error "non-constant initialization" }
15 print *, p
16 END