diff options
| author | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-23 13:35:53 +0000 |
|---|---|---|
| committer | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-23 13:35:53 +0000 |
| commit | 1f2a7a4dd4aa1f6d5bf159eee676cedef84323e3 (patch) | |
| tree | c9a0ef27b56d8d5ae2f04fa3ce3409fbb0c3ac14 /gcc/fortran/trans-array.c | |
| parent | bdd793b231c5454437e28d91ecda885a83819e66 (diff) | |
| download | gcc-1f2a7a4dd4aa1f6d5bf159eee676cedef84323e3.tar.gz | |
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
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 7ea84c75d8f..4b8dd68119f 100644 --- 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; } |