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