dump-parse-tree.c (show_expr): Replace stdout with dumpfile for showing values.

2017-05-24  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* dump-parse-tree.c (show_expr):  Replace stdout
	with dumpfile for showing values.

From-SVN: r248426

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 760cbe2f4afe5ed6ff678411c732cf14c4a61fb3..f129746490d91c3a057c810cbed25a4702d1c16e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2017-05-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       * dump-parse-tree.c (show_expr):  Replace stdout
+       with dumpfile for showing values.
+
 2017-05-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/66094

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 2d6d205704ffb969521e0b141e062de28fe37696..73296da524d844932844cd6f0a57f4ce37f6fe27 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -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);