flang/test/Semantics/label16.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2
   3 subroutine x(n)
   4    call x1(n)
   5    if (n == 0) goto 88
   6    print*, 'x'
   7 contains
   8    subroutine x1(n)
   9       if (n == 0) goto 77 ! ok
  10       print*, 'x1'
  11       !ERROR: Label '88' was not found
  12       goto 88
  13 77 end subroutine x1
  14 88 end