gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90

   1 ! from PR 15962, we used to require constant expressions instead of
   2 ! initialization expressions in case-statements
   3 function j(k)
   4 integer :: k
   5 integer :: j
   6 integer, parameter :: i(2) = (/1,2/)
   7
   8 select case(k)
   9 case (1:size(i))
  10     j = i(k)
  11 case default
  12     j = 0
  13 end select
  14 end function
  15
  16 if (j(2).NE.2 .OR. j(11).NE.0) call abort()
  17 end