39 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc121 program main31 type one42 real x53 end type one61 type two72 real x8 !ERROR: Label '2' is not distinct92 real y103 end type two112 interface122 subroutine sub1(p, q)133 interface143 subroutine p154 end subroutine163 subroutine q174 end subroutine184 end interface195 end subroutine202 subroutine sub2(p, q)213 interface223 subroutine p234 end subroutine243 subroutine q254 end subroutine264 end interface275 end subroutine283 end interface294 call sub3305 contains311 subroutine sub3322 continue333 block34 !ERROR: Label '2' is not distinct352 continue364 end block375 end subroutine386 end program39