Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
19990502-1.f
blob: ce5343db9bfaac983cc186fc5fd3199fd2071edf [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
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