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