From a7c6141677ecad94e4d2d94af7166ab9c7f39525 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Thu, 3 Nov 2011 21:08:25 +0000 Subject: [PATCH] trans-array.c (gfc_walk_array_ref): Skip coarray dimensions. * trans-array.c (gfc_walk_array_ref): Skip coarray dimensions. From-SVN: r180850 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-array.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d7a1ba7d28a6..60d97f014d28 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2011-11-03 Mikael Morin + + * trans-array.c (gfc_walk_array_ref): Skip coarray dimensions. + 2011-11-03 Mikael Morin * trans-array.c (get_array_ref_dim): Remove redundant condition. diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index c7eaf664b274..5500ec46b61f 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; -- 2.47.2