From: Mikael Morin <mikael@gcc.gnu.org>
Date: Thu, 3 Nov 2011 21:14:19 +0000 (+0000)
Subject: trans-array.c (gfc_conv_loop_setup): Also skip temporary arrays.
X-Git-Tag: releases/gcc-4.7.0~2580
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=596a95799c085e14dd29274b53d37f2f847cadf1;p=thirdparty%2Fgcc.git

trans-array.c (gfc_conv_loop_setup): Also skip temporary arrays.

	* trans-array.c (gfc_conv_loop_setup): Also skip temporary arrays.

From-SVN: r180853
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e9d3f813d32a..c0fe2c0bb03d 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_conv_loop_setup): Also skip temporary arrays.
+
 2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
 
 	* trans-array.c (gfc_conv_ss_startstride): Access array bounds along
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index f4d8a8543272..cfbe9095c49f 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3881,7 +3881,12 @@ gfc_conv_loop_setup (gfc_loopinfo * loop, locus * where)
 	 loop for this dimension.  We try to pick the simplest term.  */
       for (ss = loop->ss; ss != gfc_ss_terminator; ss = ss->loop_chain)
 	{
-	  if (ss->type == GFC_SS_SCALAR || ss->type == GFC_SS_REFERENCE)
+	  gfc_ss_type ss_type;
+
+	  ss_type = ss->type;
+	  if (ss_type == GFC_SS_SCALAR
+	      || ss_type == GFC_SS_TEMP
+	      || ss_type == GFC_SS_REFERENCE)
 	    continue;
 
 	  info = &ss->data.info;