+2012-08-03 Mikael Morin <mikael@gcc.gnu.org>
+
+ PR fortran/54166
+ * trans-array.c (set_loop_bounds): Access specinfo using spec_dim.
+
2012-08-02 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/48820
else if (INTEGER_CST_P (info->start[dim])
&& !INTEGER_CST_P (specinfo->start[spec_dim])
&& integer_onep (info->stride[dim])
- == integer_onep (specinfo->stride[dim])
+ == integer_onep (specinfo->stride[spec_dim])
&& INTEGER_CST_P (info->stride[dim])
- == INTEGER_CST_P (specinfo->stride[dim]))
+ == INTEGER_CST_P (specinfo->stride[spec_dim]))
loopspec[n] = ss;
/* We don't work out the upper bound.
else if (INTEGER_CST_P (info->finish[n])
+2012-08-03 Mikael Morin <mikael@gcc.gnu.org>
+
+ PR fortran/54166
+ * gfortran.dg/array_5.f90: New test.
+
2012-08-03 Marc Glisse <marc.glisse@inria.fr>
PR tree-optimization/30318
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/54166
+! There was an ICE while chosing the bounds to scalarize the FAIL line.
+!
+! Contributed by Koen Poppe <koen.poppe@cs.kuleuven.be>
+!
+
+module ds_routines
+contains
+ subroutine dsget(vertic,rstore)
+ real, dimension(:), intent(in out) :: rstore
+ real, dimension(:,:), intent(out) :: vertic
+ integer :: nrvert,point
+ nrvert = 4
+ point = 26
+ vertic(1,1:nrvert) = rstore(point+1:point+nrvert) ! FAIL
+ end subroutine dsget
+end module ds_routines
+
+program ds_routines_program
+ use ds_routines
+ print *, "ok"
+end program ds_routines_program