Sign in
llvm
/
llvm-project
/
flang
/
refs/heads/main
/
.
/
test
/
Semantics
/
label10.f90
blob: 09bb3ab1e9ace504b1d082c312b087936b2feb4f [
file
] [
log
] [
blame
]
!
RUN
:
not
%
flang_fc1
-
fdebug
-
unparse
-
with
-
symbols
%
s
2
>&
1
|
FileCheck
%
s
!
CHECK
:
'60'
not
a FORMAT
!
CHECK
:
data transfer
use
of
'60'
subroutine s
(
a
)
real a
(
10
)
write
(*,
60
)
"Hi there"
60
continue
70
format
(
i8
)
end
subroutine s
