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