Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_5.f90
blob: 8b8f6b0414b36a2032a6c62c9ecea6e8bf0c5f46 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR22327
program array_constructor
implicit
none
integer
::
a
(
6
),
i
i
=
6
a
=
(
/ 1, 2, 3, 4, 5, i /
)
do
i
=
1
,
6
if
(
a
(
i
)
/=
i
)
call abort
()
end
do
end
program array_constructor