Sign in
llvm
/
llvm-project
/
flang
/
14360fdc327fd05f38007969e6c83faf7db51b95
/
.
/
test
/
Semantics
/
canondo03.f90
blob: 55b3fd2fe8f12e5841f8e4ddcd0aba47c42ff37e [
file
] [
log
] [
blame
]
!
RUN
:
%
f18
-
funparse
-
with
-
symbols
%
s
2
>&
1
|
FileCheck
%
s
!
CHECK
:
10
continue
!
CHECK
:
end
do
SUBROUTINE sub00
(
a
,
b
,
n
,
m
)
INTEGER n
,
m
REAL a
(
n
,
m
),
b
(
n
,
m
)
i
=
n
-
1
DO
10
j
=
1
,
m
g
=
a
(
i
,
j
)
-
b
(
i
,
j
)
PRINT
*,
g
10
END
DO
END
SUBROUTINE sub00