git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

trans-array.c (gfc_conv_expr_descriptor): Add out-of-the-scalarizer cobounds evaluation. 

* trans-array.c (gfc_conv_expr_descriptor): Add out-of-the-scalarizer
	cobounds evaluation.

From-SVN: r179683
This commit is contained in:
Mikael Morin 2011-10-07 21:47:07 +02:00 committed by Mikael Morin
parent 199c387dd1
commit 6bd0ce7b61
2 changed files with 20 additions and 1 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): Add out-of-the-scalarizer
cobounds evaluation.
2011-10-07 Mikael Morin <mikael.morin@sfr.fr> 2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
* trans-array.c (gfc_conv_ss_startstride): Support zero rank loop. * trans-array.c (gfc_conv_ss_startstride): Support zero rank loop.

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

@ -5994,7 +5994,21 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
tree base; tree base;
if (se->want_coarray) if (se->want_coarray)
codim = gfc_get_corank (expr); {
codim = gfc_get_corank (expr);
for (n = ss->data.info.dimen; n < ss->data.info.dimen + codim - 1;
n++)
{
gfc_conv_section_startstride (&loop, ss, n, true, false);
loop.from[n] = info->start[n];
loop.to[n] = info->end[n];
}
gcc_assert (n == ss->data.info.dimen + codim - 1);
evaluate_bound (&loop.pre, info->start, info->ref->u.ar.start,
info->descriptor, n, true);
loop.from[n] = info->start[n];
}
else else
codim = 0; codim = 0;