Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr71067_2.f90
blob: 6fac4c524cc79ab6523364ce673150f8ad79ca30 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
program p
integer
::
a
(
2
),
b
(
2
),
c
(
2
)
data a
/
2
*
b1
'/ ! { dg-error "must be a PARAMETER in DATA" }
data b /2*o1'
!
{
dg
-
error
"must be a PARAMETER in DATA"
}
data c
/
2
*
z1
!
{
dg
-
error
"must be a PARAMETER in DATA"
}
end