From bbf38bcf2d9afa8d34e2fa8e2a2609fa47e13920 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 22 May 2013 21:24:29 +0200 Subject: [PATCH] resolve.c (get_temp_from_expr): Change mangling to start always with a _. 2013-05-22 Tobias Burnus * resolve.c (get_temp_from_expr): Change mangling to start always with a _. From-SVN: r199215 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5b87b4f1fbb..eccce10ee11 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-05-22 Tobias Burnus + + * resolve.c (get_temp_from_expr): Change mangling to + start always with a _. + 2013-05-22 Tobias Burnus * resolve.c (get_temp_from_expr): Fix temp var mangling. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5fabc9a979d..a63ee938544 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" 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);