re PR fortran/46978 (TRANSPOSE with RESHAPE and ALLOCATE: Segfault)

2010-12-23  Mikael Morin  <mikael.morin@gcc.gnu.org>

	PR fortran/46978
	Revert part of revision 164112
	* trans-array.c (gfc_trans_create_temp_array):
	Set loop n'th upper bound from (possibly transposed) array's dim bounds.

From-SVN: r168206

gcc/fortran/ChangeLog

+2010-12-23  Mikael Morin  <mikael.morin@gcc.gnu.org>
+
+	PR fortran/46978
+	Revert part of revision 164112
+	* trans-array.c (gfc_trans_create_temp_array):
+	Set loop n'th upper bound from (possibly transposed) array's dim bounds.
+
 2010-12-18  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/46974

gcc/fortran/trans-array.c

@@ -851,8 +851,8 @@ gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post,
 	     of the descriptor fields.  */
 	  tmp = fold_build2_loc (input_location,
 		MINUS_EXPR, gfc_array_index_type,
-		gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[n]),
-		gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[n]));
+		gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[dim]),
+		gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[dim]));
 	  loop->to[n] = tmp;
 	  continue;
 	}