Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/data_value_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! Test the fix for PR40402, in which it was not detected that X
kono
parents:
diff changeset
3 ! is not a constant and so the DATA statement did not have
kono
parents:
diff changeset
4 ! a constant value expression.
kono
parents:
diff changeset
5 !
kono
parents:
diff changeset
6 ! Modified dg-error for PR41807
kono
parents:
diff changeset
7 !
kono
parents:
diff changeset
8 ! Contributed by Philippe Marguinaud <philippe.marguinaud@meteo.fr>
kono
parents:
diff changeset
9 !
kono
parents:
diff changeset
10 TYPE POINT
kono
parents:
diff changeset
11 REAL :: X
kono
parents:
diff changeset
12 ENDTYPE
kono
parents:
diff changeset
13 TYPE(POINT) :: P
kono
parents:
diff changeset
14 DATA P / POINT(1.+X) / ! { dg-error "non-constant initialization" }
kono
parents:
diff changeset
15 print *, p
kono
parents:
diff changeset
16 END