+
−! { dg-do compile }
+
−! Test the fix for PR40402, in which it was not detected that X
+
−! is not a constant and so the DATA statement did not have
+
−! a constant value expression.
+
−!
+
−! Modified dg-error for PR41807
+
−!
+
−! Contributed by Philippe Marguinaud <philippe.marguinaud@meteo.fr>
+
−!
+
−      TYPE POINT
+
−        REAL :: X 
+
−      ENDTYPE
+
−      TYPE(POINT) :: P
+
−      DATA P / POINT(1.+X) / ! { dg-error "non-constant initialization" }
+
−      print *, p
+
−      END