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
+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
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;
}