diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-05-22 19:24:29 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-05-22 19:24:29 +0000 |
| commit | fa003ed322411022afebe4b06090a5c03f3af3ae (patch) | |
| tree | 10ebce46077c39243dada82fe7652f5baab44a72 /gcc | |
| parent | 9211e90f4c0413daf052a89768d48ec6b2035684 (diff) | |
| download | gcc-fa003ed322411022afebe4b06090a5c03f3af3ae.tar.gz | |
2013-05-22 Tobias Burnus <burnus@net-b.de>
* resolve.c (get_temp_from_expr): Change mangling to
start always with a _.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@199215 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5b87b4f1fbb..eccce10ee11 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 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. 2013-05-22 Tobias Burnus <burnus@net-b.de> 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); |