Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
data_array_3.f90
blob: d9de791b40534d4fc19cd02694437df53213800f [
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
),
b
data a
(
1
:
2
)
/
myint
(
b
),
myint
(
2
)
/
!
{
dg
-
error
"Invalid initializer"
}
end