diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 14:45:46 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 14:45:46 +0000 |
| commit | 700535b75f0df9aa1cabe95da1fcf3df82ad1c01 (patch) | |
| tree | 49778d4d47bedf0186f416414c44d823075b0d90 /gcc/fortran/trans-array.c | |
| parent | a04b23d8a4b8df18959c839795a59140689bb1f3 (diff) | |
| download | gcc-700535b75f0df9aa1cabe95da1fcf3df82ad1c01.zip gcc-700535b75f0df9aa1cabe95da1fcf3df82ad1c01.tar.gz gcc-700535b75f0df9aa1cabe95da1fcf3df82ad1c01.tar.bz2 | |
re PR fortran/50420 ([Coarray] lcobound doesn't accept coarray subcomponents)
PR fortran/50420
* trans-array.c (gfc_conv_expr_descriptor): Use loop.dimen instead of
ndim for the descriptor's rank.
From-SVN: r180143
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 0da1720..06a81f1d 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -6150,13 +6150,13 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss) gfc_rank_cst[dim], stride); } - for (n = ndim; n < ndim + codim; n++) + for (n = loop.dimen; n < loop.dimen + codim; n++) { from = loop.from[n]; to = loop.to[n]; gfc_conv_descriptor_lbound_set (&loop.pre, parm, gfc_rank_cst[n], from); - if (n < ndim + codim - 1) + if (n < loop.dimen + codim - 1) gfc_conv_descriptor_ubound_set (&loop.pre, parm, gfc_rank_cst[n], to); } |