1! { dg-do run } 2! Short test program with a CASE statement that uses a range. 3! 4program select_4 5 integer i 6 do i = 1, 34, 4 7 select case(i) 8 case (:5) 9 if (i /= 1 .and. i /= 5) call abort 10 case (13:21) 11 if (i /= 13 .and. i /= 17 .and. i /= 21) call abort 12 case (29:) 13 if (i /= 29 .and. i /= 33) call abort 14 case default 15 if (i /= 9 .and. i /= 25) call abort 16 end select 17 end do 18end program select_4 19