gcc/testsuite/gfortran.dg/select_4.f90

   1 ! { dg-do compile }
   2 ! Check for overlapping case range diagnostics.
   3 !
   4 program select_5
   5   integer i
   6   select case(i)
   7   case (20:30) ! { dg-error "overlaps with CASE" }
   8   case (25:) ! { dg-error "overlaps with CASE" }
   9   end select
  10   select case(i)
  11   case (30)  ! { dg-error "overlaps with CASE" }
  12   case (25:) ! { dg-error "overlaps with CASE" }
  13   end select
  14   select case(i)
  15   case (20:30) ! { dg-error "overlaps with CASE" }
  16   case (25) ! { dg-error "overlaps with CASE" }
  17   end select
  18 end program select_5