Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
971102-1.f
blob: cfeb2f16dcb4f3a3e426665987d4c7d9e0e42873 [
file
] [
log
] [
blame
]
c
{
dg
-
do
run
}
i
=
3
j
=
0
do
i
=
i
,
5
j
=
j
+
i
end
do
do
i
=
3
,
i
j
=
j
+
i
end
do
if
(
i
.
ne
.
7
)
STOP
1
print
*,
i
,
j
end
