! { dg-do run } | |
! Simple test for SELECT CASE | |
! | |
program select_2 | |
integer i | |
do i = 1, 5 | |
select case(i) | |
case (1) | |
if (i /= 1) call abort | |
case (2:3) | |
if (i /= 2 .and. i /= 3) call abort | |
case (4) | |
if (i /= 4) call abort | |
case default | |
if (i /= 5) call abort | |
end select | |
end do | |
end program select_2 |