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) STOP 1
10     case (2:3)
11       if (i /= 2 .and. i /= 3) STOP 2
12     case (4)
13       if (i /= 4) STOP 3
14     case default
15       if (i /= 5) STOP 4
16     end select
17  end do
18end program select_2
19