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
This commit is contained in:
parent
b78a06b224
commit
bb033c9adc
|
@ -1,3 +1,8 @@
|
||||||
|
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||||
|
|
||||||
|
* trans-array.c (gfc_conv_expr_descriptor): Simplify coarray
|
||||||
|
descriptor setup code.
|
||||||
|
|
||||||
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||||
|
|
||||||
* resolve.c (compare_spec_to_ref): Move coarray ref initialization
|
* resolve.c (compare_spec_to_ref): Move coarray ref initialization
|
||||||
|
|
|
@ -6140,22 +6140,13 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
|
||||||
|
|
||||||
for (n = ndim; n < ndim + codim; n++)
|
for (n = ndim; n < ndim + codim; n++)
|
||||||
{
|
{
|
||||||
/* look for the corresponding scalarizer dimension: dim. */
|
from = loop.from[n];
|
||||||
for (dim = 0; dim < ndim + codim; dim++)
|
to = loop.to[n];
|
||||||
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];
|
|
||||||
gfc_conv_descriptor_lbound_set (&loop.pre, parm,
|
gfc_conv_descriptor_lbound_set (&loop.pre, parm,
|
||||||
gfc_rank_cst[dim], from);
|
gfc_rank_cst[n], from);
|
||||||
if (n < ndim + codim - 1)
|
if (n < ndim + codim - 1)
|
||||||
gfc_conv_descriptor_ubound_set (&loop.pre, parm,
|
gfc_conv_descriptor_ubound_set (&loop.pre, parm,
|
||||||
gfc_rank_cst[dim], to);
|
gfc_rank_cst[n], to);
|
||||||
dim++;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if (se->data_not_needed)
|
if (se->data_not_needed)
|
||||||
|
|
Loading…
Reference in New Issue