Sign in
llvm
/
llvm-project
/
flang
/
78dc8fd393cf99ba2a2fd9d99e071aaee6ce2c28
/
.
/
test
/
Semantics
/
canondo01.f90
blob: 3379953b12d7f277313b1ad1fb14666060c73b07 [
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
)
DO
10
j
=
1
,
m
DO
10
i
=
1
,
n
g
=
a
(
i
,
j
)
-
b
(
i
,
j
)
10
PRINT
*,
g
END
SUBROUTINE sub00