From: Mikael Morin <mikael@gcc.gnu.org>
Date: Thu, 3 Nov 2011 21:08:25 +0000 (+0000)
Subject: trans-array.c (gfc_walk_array_ref): Skip coarray dimensions.
X-Git-Tag: releases/gcc-4.7.0~2583
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a7c6141677ecad94e4d2d94af7166ab9c7f39525;p=thirdparty%2Fgcc.git

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 d7a1ba7d28a6..60d97f014d28 100644
--- 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 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;