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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168206 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3c7b4f4..4ffb3e3 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+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

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 7ea84c7..4b8dd68 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/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;
        }