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