Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
initialization_26.f90
blob: 4532216e12e35fce2c9ed05b83d58ecc16415cf3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
Verify
that the outer
do
-
loop counter
'j'
is
accepted
as
!
as
end
-
expression of the inner loop
.
!
integer i
,
j
integer
,
parameter
::
n
=
size
(
[(
[(
i
*
j
,
i
=
1
,
j
)],
j
=
1
,
2
)]
)
end