diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-05-22 21:24:29 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-05-22 21:24:29 +0200 |
| commit | bbf38bcf2d9afa8d34e2fa8e2a2609fa47e13920 (patch) | |
| tree | 10ebce46077c39243dada82fe7652f5baab44a72 /gcc/fortran/resolve.c | |
| parent | ead3d0757a54d09cd5092c52274cd20e7ce66b4f (diff) | |
| download | gcc-bbf38bcf2d9afa8d34e2fa8e2a2609fa47e13920.zip gcc-bbf38bcf2d9afa8d34e2fa8e2a2609fa47e13920.tar.gz gcc-bbf38bcf2d9afa8d34e2fa8e2a2609fa47e13920.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5fabc9a..a63ee93 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); |