From 9211e90f4c0413daf052a89768d48ec6b2035684 Mon Sep 17 00:00:00 2001 From: burnus Date: Wed, 22 May 2013 19:14:51 +0000 Subject: [PATCH] 2013-05-22 Tobias Burnus * resolve.c (get_temp_from_expr): Fix temp var mangling. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@199214 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3064749..5b87b4f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 2013-05-22 Tobias Burnus + * resolve.c (get_temp_from_expr): Fix temp var mangling. + +2013-05-22 Tobias Burnus + PR fortran/57364 * resolve.c (get_temp_from_expr): Commit created sym. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 6f32df8..5fabc9a 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); -- 2.7.4