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 ! Modified dg-error for PR41807
   7 !
   8 ! Contributed by Philippe Marguinaud <philippe.marguinaud@meteo.fr>
   9 !
  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