1! { dg-do compile }
2! Check for overlapping case range diagnostics.
3!
4program 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
18end program select_5
19