2013-05-22 Tobias Burnus <burnus@net-b.de>
* resolve.c (get_temp_from_expr): Fix temp var mangling.
From-SVN: r199214
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);