4 ! There was an ICE while chosing the bounds to scalarize the FAIL line.
6 ! Contributed by Koen Poppe <koen.poppe@cs.kuleuven.be>
11 subroutine dsget(vertic
,rstore
)
12 real, dimension(:), intent(in out
) :: rstore
13 real, dimension(:,:), intent(out
) :: vertic
14 integer :: nrvert
,point
17 vertic(1,1:nrvert
) = rstore(point
+1:point
+nrvert
) ! FAIL
19 end module ds_routines
21 program ds_routines_program
24 end program ds_routines_program