flang/test/Semantics/label17.f90

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