llvm/flang/test/Semantics/label17.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
1 program main
1  type one
2    real x
3  end type one
1  type two
2    real x
     !ERROR: Label '2' is not distinct
2    real y
3  end type two
2  interface
2   subroutine sub1(p, q)
3    interface
3     subroutine p
4     end subroutine
3     subroutine q
4     end subroutine
4    end interface
5   end subroutine
2   subroutine sub2(p, q)
3    interface
3     subroutine p
4     end subroutine
3     subroutine q
4     end subroutine
4    end interface
5   end subroutine
3  end interface
4  call sub3
5 contains
1  subroutine sub3
2   continue
3   block
     !ERROR: Label '2' is not distinct
2    continue
4   end block
5  end subroutine
6 end program