Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
19990502-1.f
blob: dde2769f40a6a14cbf3cdb3198a11b9f057622e7 [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
SUBROUTINE G
(
IGAMS
,
IWRK
,
NADC
,
NCellsInY
)
INTEGER
(
kind
=
2
)
IGAMS
(
2
,
NADC
)
in
=
1
do
while
(
in
.
le
.
nadc
.
and
.
IGAMS
(
2
,
in
).
le
.
in
)
enddo
END