diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-10-07 21:11:01 +0200 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-07 19:11:01 +0000 |
| commit | bb033c9adcbca5fb3dc60566e879e85d5190d696 (patch) | |
| tree | c2c2e50201ba10914d8687918d817e62a1e90393 /gcc/fortran/trans-array.c | |
| parent | b78a06b2243643c6c35f19e6c376502e3fb0f07f (diff) | |
| download | gcc-bb033c9adcbca5fb3dc60566e879e85d5190d696.zip gcc-bb033c9adcbca5fb3dc60566e879e85d5190d696.tar.gz gcc-bb033c9adcbca5fb3dc60566e879e85d5190d696.tar.bz2 | |
trans-array.c (gfc_conv_expr_descriptor): Simplify coarray descriptor setup code.
* trans-array.c (gfc_conv_expr_descriptor): Simplify coarray
descriptor setup code.
From-SVN: r179674
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 37cdeb5..88849ef 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -6140,22 +6140,13 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss) for (n = ndim; n < ndim + codim; n++) { - /* look for the corresponding scalarizer dimension: dim. */ - for (dim = 0; dim < ndim + codim; dim++) - if (info->dim[dim] == n) - break; - - /* loop exited early: the DIM being looked for has been found. */ - gcc_assert (dim < ndim + codim); - - from = loop.from[dim]; - to = loop.to[dim]; + from = loop.from[n]; + to = loop.to[n]; gfc_conv_descriptor_lbound_set (&loop.pre, parm, - gfc_rank_cst[dim], from); + gfc_rank_cst[n], from); if (n < ndim + codim - 1) gfc_conv_descriptor_ubound_set (&loop.pre, parm, - gfc_rank_cst[dim], to); - dim++; + gfc_rank_cst[n], to); } if (se->data_not_needed) |