1! RUN: %python %S/test_errors.py %s %flang_fc1 21 program main 31 type one 42 real x 53 end type one 61 type two 72 real x 8 !ERROR: Label '2' is not distinct 92 real y 103 end type two 112 interface 122 subroutine sub1(p, q) 133 interface 143 subroutine p 154 end subroutine 163 subroutine q 174 end subroutine 184 end interface 195 end subroutine 202 subroutine sub2(p, q) 213 interface 223 subroutine p 234 end subroutine 243 subroutine q 254 end subroutine 264 end interface 275 end subroutine 283 end interface 294 call sub3 305 contains 311 subroutine sub3 322 continue 333 block 34 !ERROR: Label '2' is not distinct 352 continue 364 end block 375 end subroutine 386 end program 39