FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.

Browse source 
* trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.

From-SVN: r180850
This commit is contained in:
Mikael Morin 2011-11-03 21:08:25 +00:00
parent 37f1447217
commit a7c6141677
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (get_array_ref_dim): Remove redundant condition.

2
gcc/fortran/trans-array.c
View file

@ -7637,7 +7637,7 @@ gfc_walk_array_ref (gfc_ss * ss, gfc_expr * expr, gfc_ref * ref)
switch (ar->type)
{
case AR_ELEMENT:
for (n = ar->dimen + ar->codimen - 1; n >= 0; n--)
for (n = ar->dimen - 1; n >= 0; n--)
ss = gfc_get_scalar_ss (ss, ar->start[n]);
break;