Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
data_array_2.f90
blob: 20777a2a796b80e0b735f47bca869adb4fdb5ec3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR32928 DATA statement
with
array element
as
initializer
is
rejected
integer
,
parameter
,
dimension
(
4
)
::
myint
=
[
4
,
3
,
2
,
1
]
integer
::
a
(
5
)
data a
(
1
:
2
)
/
myint
(
a
(
1
)),
myint
(
2
)
/
!
{
dg
-
error
"Invalid initializer"
}
end