diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 21:08:25 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 21:08:25 +0000 |
| commit | a7c6141677ecad94e4d2d94af7166ab9c7f39525 (patch) | |
| tree | 50af955b76d36122ff3701f1fd83d9ebf30e2120 /gcc/fortran/trans-array.c | |
| parent | 37f14472174cb0e4826c447859c98a6379f1405a (diff) | |
| download | gcc-a7c6141677ecad94e4d2d94af7166ab9c7f39525.zip gcc-a7c6141677ecad94e4d2d94af7166ab9c7f39525.tar.gz gcc-a7c6141677ecad94e4d2d94af7166ab9c7f39525.tar.bz2 | |
trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.
* trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.
From-SVN: r180850
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index c7eaf66..5500ec4 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -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; |