Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
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