gcc/testsuite/gfortran.dg/array_5.f90

   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
   9 module ds_routines
  10 contains
  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
  19 end module ds_routines
  20
  21 program ds_routines_program
  22     use ds_routines
  23     print *, "ok"
  24 end program ds_routines_program