trans-array.c (gfc_conv_loop_setup): Access the shape along the real array…

trans-array.c (gfc_conv_loop_setup): Access the shape along the real array dimension instead of the scalarizer...

2010-09-10  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-array.c (gfc_conv_loop_setup): Access the shape along the
	real array dimension instead of the scalarizer (loop) dimension.

From-SVN: r164162

gcc/fortran/ChangeLog

 2010-09-10  Mikael Morin  <mikael@gcc.gnu.org>
 
+	* trans-array.c (gfc_conv_loop_setup): Access the shape along the
+	real array dimension instead of the scalarizer (loop) dimension.
+
+2010-09-10  Mikael Morin  <mikael@gcc.gnu.org>
+
 	* trans-array.c (gfc_conv_resolve_dependencies): Handle same-array
 	transposed references.
 

gcc/fortran/trans-array.c

@@ -3801,7 +3801,7 @@ gfc_conv_loop_setup (gfc_loopinfo * loop, locus * where)
 	  && INTEGER_CST_P (info->stride[dim]))
 	{
 	  loop->from[n] = info->start[dim];
-	  mpz_set (i, cshape[n]);
+	  mpz_set (i, cshape[get_array_ref_dim (info, n)]);
 	  mpz_sub_ui (i, i, 1);
 	  /* To = from + (size - 1) * stride.  */
 	  tmp = gfc_conv_mpz_to_tree (i, gfc_index_integer_kind);