! { dg-do run } | |
! Short test program with a CASE statement that uses a range. | |
! | |
program select_4 | |
integer i | |
do i = 1, 34, 4 | |
select case(i) | |
case (:5) | |
if (i /= 1 .and. i /= 5) STOP 1 | |
case (13:21) | |
if (i /= 13 .and. i /= 17 .and. i /= 21) STOP 2 | |
case (29:) | |
if (i /= 29 .and. i /= 33) STOP 3 | |
case default | |
if (i /= 9 .and. i /= 25) STOP 4 | |
end select | |
end do | |
end program select_4 |