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

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

From-SVN: r180850

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d7a1ba7d28a6b34131c25491b331159c67901ca5..60d97f014d28feb119a6ab8e4cb21e3772241c72 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index c7eaf664b2749aa7f39cb85cdb765d5e60427156..5500ec46b61f91cdb2f7e7b350e8988120ab8132 100644 (file)
--- 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;