Sign in
gnu
/
gcc
/
e8cbc2e256b3e9568288594d9f90a2015d31b55a
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
971102-1.f
blob: 6b0c2f3b3a980ebf394f29dd672e59404aefbc26 [
file
] [
log
] [
blame
]
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
)
call abort
()
print
*,
i
,
j
end