* 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
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>
+
PR fortran/57364
* resolve.c (get_temp_from_expr): Commit created sym.
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);