1! { dg-do run }
2!  Simple test for SELECT CASE
3!
4program select_2
5  integer i
6  do i = 1, 5
7     select case(i)
8     case (1)
9       if (i /= 1) call abort
10     case (2:3)
11       if (i /= 2 .and. i /= 3) call abort
12     case (4)
13       if (i /= 4) call abort
14     case default
15       if (i /= 5) call abort
16     end select
17  end do
18end program select_2
19