Sign in
chromium
/
native_client
/
nacl-toolchain
/
cc3d67a9abb3eceb0d79d5369b40b41f67e2474b
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
initialization_20.f90
blob: 47d552834ae36e9773912a54ed4d385fa85f3ddb [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
Test
for
PR19925
!
program pr19925
implicit
none
integer j
integer
,
parameter
::
n
=
100000
integer
,
parameter
::
i
(
n
)=(
/(j,j=1,n)/
)
!
{
dg
-
error
"number of elements"
}
print
*,
i
(
5
)
end
program pr19925