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