! RUN: %S/test_errors.sh %s %t %flang_fc1
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