Sign in
llvm
/
llvm-project
/
flang
/
bbce11f86e1bd7648ac0b623970dbb095fc52443
/
.
/
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