19 lines
353 B
Fortran
19 lines
353 B
Fortran
! { 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
|