Sign in
llvm
/
llvm-project
/
flang
/
8f75d8c5ee347d7fc715b2ee340b7ab4bbd489a4
/
.
/
test
/
Semantics
/
label16.f90
blob: 11c5381b715f268d0861b8a2ad1a080d63ab17d6 [
file
] [
log
] [
blame
]
!
RUN
:
%
S
/
test_errors
.
sh
%
s
%
t
%
f18
subroutine x
(
n
)
call x1
(
n
)
if
(
n
==
0
)
goto
88
print
*,
'x'
contains
subroutine x1
(
n
)
if
(
n
==
0
)
goto
77
!
ok
print
*,
'x1'
!
ERROR
:
Label
'88'
was
not
found
goto
88
77
end
subroutine x1
88
end