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
17