20 lines
451 B
Fortran
20 lines
451 B
Fortran
|
! { dg-do run }
|
||
|
! Simple test program to see if gfortran eliminates the 'case (3:2)'
|
||
|
! statement. This is an unreachable CASE because the range is empty.
|
||
|
!
|
||
|
program select_3
|
||
|
integer i
|
||
|
do i = 1, 4
|
||
|
select case(i)
|
||
|
case (1)
|
||
|
if (i /= 1) call abort
|
||
|
case (3:2)
|
||
|
call abort
|
||
|
case (4)
|
||
|
if (i /= 4) call abort
|
||
|
case default
|
||
|
if (i /= 2 .and. i /= 3) call abort
|
||
|
end select
|
||
|
end do
|
||
|
end program select_3
|