This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, fortran, committed] replace stdout with dumpfile in a few places
- From: Thomas Koenig <tkoenig at netcologne dot de>
- To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Wed, 24 May 2017 21:02:33 +0200
- Subject: [patch, fortran, committed] replace stdout with dumpfile in a few places
- Authentication-results: sourceware.org; auth=none
Hello world,
I just committed the attached patch as obvious.
Regards
Thomas
2017-05-24 Thomas Koenig <tkoenig@gcc.gnu.org>
* dump-parse-tree.c (show_expr): Replace stdout
with dumpfile for showing values.
Index: dump-parse-tree.c
===================================================================
--- dump-parse-tree.c (Revision 247809)
+++ dump-parse-tree.c (Arbeitskopie)
@@ -422,7 +422,7 @@ show_expr (gfc_expr *p)
switch (p->ts.type)
{
case BT_INTEGER:
- mpz_out_str (stdout, 10, p->value.integer);
+ mpz_out_str (dumpfile, 10, p->value.integer);
if (p->ts.kind != gfc_default_integer_kind)
fprintf (dumpfile, "_%d", p->ts.kind);
@@ -436,7 +436,7 @@ show_expr (gfc_expr *p)
break;
case BT_REAL:
- mpfr_out_str (stdout, 10, 0, p->value.real, GFC_RND_MODE);
+ mpfr_out_str (dumpfile, 10, 0, p->value.real, GFC_RND_MODE);
if (p->ts.kind != gfc_default_real_kind)
fprintf (dumpfile, "_%d", p->ts.kind);
break;
@@ -449,7 +449,7 @@ show_expr (gfc_expr *p)
case BT_COMPLEX:
fputs ("(complex ", dumpfile);
- mpfr_out_str (stdout, 10, 0, mpc_realref (p->value.complex),
+ mpfr_out_str (dumpfile, 10, 0, mpc_realref (p->value.complex),
GFC_RND_MODE);
if (p->ts.kind != gfc_default_complex_kind)
fprintf (dumpfile, "_%d", p->ts.kind);