OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Mikael Morin 2011-10-07 21:11:01 +02:00 committed by Mikael Morin
parent b78a06b224
commit bb033c9adc
2 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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>
* resolve.c (compare_spec_to_ref): Move coarray ref initialization

17
gcc/fortran/trans-array.c
View File

@ -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)