1! { dg-do run }
2!  Simple test program to see if gfortran eliminates the 'case (3:2)'
3!  statement.  This is an unreachable CASE because the range is empty.
4!
5program select_3
6  integer i
7  do i = 1, 4
8     select case(i)
9     case (1)
10       if (i /= 1) call abort
11     case (3:2)
12       call abort
13     case (4)
14       if (i /= 4) call abort
15     case default
16       if (i /= 2 .and. i /= 3) call abort
17     end select
18  end do
19end program select_3
20