1! { dg-do compile } 2! 3! PR fortran/54166 4! There was an ICE while chosing the bounds to scalarize the FAIL line. 5! 6! Contributed by Koen Poppe <koen.poppe@cs.kuleuven.be> 7! 8 9module ds_routines 10contains 11 subroutine dsget(vertic,rstore) 12 real, dimension(:), intent(in out) :: rstore 13 real, dimension(:,:), intent(out) :: vertic 14 integer :: nrvert,point 15 nrvert = 4 16 point = 26 17 vertic(1,1:nrvert) = rstore(point+1:point+nrvert) ! FAIL 18 end subroutine dsget 19end module ds_routines 20 21program ds_routines_program 22 use ds_routines 23 print *, "ok" 24end program ds_routines_program 25