resolve.c (get_temp_from_expr): Change mangling to start always with a _.

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

        * resolve.c (get_temp_from_expr): Change mangling to
        start always with a _.

From-SVN: r199215

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5b87b4f1fbb463ba75530de1520faacbd1d85c6f..eccce10ee111f2f3b1b7a320ec784e5ae0f25bc3 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-22  Tobias Burnus  <burnus@net-b.de>
+
+       * resolve.c (get_temp_from_expr): Change mangling to
+       start always with a _.
+
 2013-05-22  Tobias Burnus  <burnus@net-b.de>
 
        * resolve.c (get_temp_from_expr): Fix temp var mangling.

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 5fabc9a979d8954bf65ca31f3f0289c4a6c08f65..a63ee938544e90d672bedbe1b255c1c1c3132d50 100644 (file)
--- 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" GFC_PREFIX("%d"), serial++);
+  sprintf (name, GFC_PREFIX("DA%d"), serial++);
   gfc_get_sym_tree (name, ns, &tmp, false);
   gfc_add_type (tmp->n.sym, &e->ts, NULL);