Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
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