15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 3subroutine x(n)4 call x1(n)5 if (n == 0) goto 886 print*, 'x'7contains8 subroutine x1(n)9 if (n == 0) goto 77 ! ok10 print*, 'x1'11 !ERROR: Label '88' was not found12 goto 881377 end subroutine x11488 end15