From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 22 May 2013 19:14:51 +0000 (+0200)
Subject: resolve.c (get_temp_from_expr): Fix temp var mangling.
X-Git-Tag: releases/gcc-4.9.0~5760
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ead3d0757a54d09cd5092c52274cd20e7ce66b4f;p=thirdparty%2Fgcc.git

resolve.c (get_temp_from_expr): Fix temp var mangling.

2013-05-22  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (get_temp_from_expr): Fix temp var mangling.

From-SVN: r199214
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 306474981b38..5b87b4f1fbb4 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-22  Tobias Burnus  <burnus@net-b.de>
+
+	* resolve.c (get_temp_from_expr): Fix temp var mangling.
+
 2013-05-22  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/57364
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 6f32df85a853..5fabc9a979d8 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -9254,7 +9254,7 @@ get_temp_from_expr (gfc_expr *e, gfc_namespace *ns)
   gfc_array_ref *aref;
   gfc_ref *ref;
 
-  sprintf (name, "DA@%d", serial++);
+  sprintf (name, "DA" GFC_PREFIX("%d"), serial++);
   gfc_get_sym_tree (name, ns, &tmp, false);
   gfc_add_type (tmp->n.sym, &e->ts, NULL);