Sign in
llvm
/
llvm-archive
/
7c2014e6d10413401c0984772345d9d61701eeba
/
.
/
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