Sign in
llvm
/
llvm-project
/
flang
/
14360fdc327fd05f38007969e6c83faf7db51b95
/
.
/
test
/
Semantics
/
canondo02.f90
blob: 69745c4ef458cd86d0fb5a942eb4f4c62e69340b [
file
] [
log
] [
blame
]
!
RUN
:
%
f18
-
funparse
-
with
-
symbols
%
s
2
>&
1
|
FileCheck
%
s
!
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
)
10
PRINT
*,
g
END
SUBROUTINE sub00