Sign in
gnu
/
gcc
/
418f81eefb6540582e4818225404d4a647ad67eb
/
.
/
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