Sign in
gnu
/
gcc
/
99b1021d21e5812ed01221d8fca8e8a32488a934
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-11.f
blob: 872e12f359ef78a98e561a1c4a70952eeb8177f5 [
file
] [
log
] [
blame
]
subroutine foo
(
bar
)
dimension bar
(
100
)
common l_
50
continue
do
i
=
1
,
20
bar
(
i
)=
0
enddo
do
100
j
=
1
,
l_
if
(
sum
.
gt
.
r
)
then
bar
(
n2
)=
j
end
if
100
continue
if
(
bar
(
4
).
ne
.
0
)
go to
50
end