OSDN Git Service

2009-11-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / 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