gcc/testsuite/gfortran.dg/select_1.f90

   1 ! { dg-do run }
   2 !  Simple test for SELECT CASE
   3 !
   4 program 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
  18 end program select_2