From patchwork Sat Sep  4 14:18:00 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [fortran,1/11] Inline transpose part 1
Date: Sat, 04 Sep 2010 04:18:00 -0000
From: Mikael Morin <mikael.morin@sfr.fr>
X-Patchwork-Id: 63778
Message-Id: <4C825518.90302@sfr.fr>
To: "fortran@gcc.gnu.org" <fortran@gcc.gnu.org>,
 gcc-patches <gcc-patches@gcc.gnu.org>

This is the testcase (to be updated with the 10/11 patch).
We change the name of the descriptor created by transpose so that it is 
not matched in the tree dump as a temporary.
OK for trunk?
2010-09-03  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-array.c (gfc_conv_array_transpose): Change generated descriptor
	name


diff --git a/trans-array.c b/trans-array.c
index e355901..7cd890e 100644
--- a/trans-array.c
+++ b/trans-array.c
@@ -894,7 +894,7 @@ gfc_conv_array_transpose (gfc_se * se, gfc_expr * expr)
   src = src_se.expr;
 
   /* Allocate a new descriptor for the return value.  */
-  dest = gfc_create_var (TREE_TYPE (src), "atmp");
+  dest = gfc_create_var (TREE_TYPE (src), "transp");
   dest_info->descriptor = dest;
   se->expr = dest;