1*f75033a0SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*f75033a0SPeter Klausler1 program main 3*f75033a0SPeter Klausler1 type one 4*f75033a0SPeter Klausler2 real x 5*f75033a0SPeter Klausler3 end type one 6*f75033a0SPeter Klausler1 type two 7*f75033a0SPeter Klausler2 real x 8*f75033a0SPeter Klausler !ERROR: Label '2' is not distinct 9*f75033a0SPeter Klausler2 real y 10*f75033a0SPeter Klausler3 end type two 11*f75033a0SPeter Klausler2 interface 12*f75033a0SPeter Klausler2 subroutine sub1(p, q) 13*f75033a0SPeter Klausler3 interface 14*f75033a0SPeter Klausler3 subroutine p 15*f75033a0SPeter Klausler4 end subroutine 16*f75033a0SPeter Klausler3 subroutine q 17*f75033a0SPeter Klausler4 end subroutine 18*f75033a0SPeter Klausler4 end interface 19*f75033a0SPeter Klausler5 end subroutine 20*f75033a0SPeter Klausler2 subroutine sub2(p, q) 21*f75033a0SPeter Klausler3 interface 22*f75033a0SPeter Klausler3 subroutine p 23*f75033a0SPeter Klausler4 end subroutine 24*f75033a0SPeter Klausler3 subroutine q 25*f75033a0SPeter Klausler4 end subroutine 26*f75033a0SPeter Klausler4 end interface 27*f75033a0SPeter Klausler5 end subroutine 28*f75033a0SPeter Klausler3 end interface 29*f75033a0SPeter Klausler4 call sub3 30*f75033a0SPeter Klausler5 contains 31*f75033a0SPeter Klausler1 subroutine sub3 32*f75033a0SPeter Klausler2 continue 33*f75033a0SPeter Klausler3 block 34*f75033a0SPeter Klausler !ERROR: Label '2' is not distinct 35*f75033a0SPeter Klausler2 continue 36*f75033a0SPeter Klausler4 end block 37*f75033a0SPeter Klausler5 end subroutine 38*f75033a0SPeter Klausler6 end program 39