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