gcc/testsuite/gfortran.dg/data_value_1.f90

   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.
   5 !
   6 ! Contributed by Philippe Marguinaud <philippe.marguinaud@meteo.fr>
   7 !
   8       TYPE POINT
   9         REAL :: X
  10       ENDTYPE
  11       TYPE(POINT) :: P
  12       DATA P / POINT(1.+X) / ! { dg-error "non-constant DATA value" }
  13       print *, p
  14       END