Sign in
gnu
/
gcc
/
e8cbc2e256b3e9568288594d9f90a2015d31b55a
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
19990502-1.f
blob: b7238fcd881f0deae58b8f7e883cf6164ea241d3 [
file
] [
log
] [
blame
]
SUBROUTINE G
(
IGAMS
,
IWRK
,
NADC
,
NCellsInY
)
INTEGER
*
2
IGAMS
(
2
,
NADC
)
in
=
1
do
while
(
in
.
le
.
nadc
.
and
.
IGAMS
(
2
,
in
).
le
.
in
)
enddo
END