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