re PR fortran/54166 (ICE rank-1 assignment to rank-2 array section)

fortran/
	PR fortran/54166
	* trans-array.c (set_loop_bounds): Access specinfo using spec_dim.

testsuite/
	PR fortran/54166
	* gfortran.dg/array_5.f90: New test.

From-SVN: r190130

gcc/fortran/ChangeLog

+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

gcc/fortran/trans-array.c

@@ -4503,9 +4503,9 @@ set_loop_bounds (gfc_loopinfo *loop)
 	  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])

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/array_5.f90

+! { 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