From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Thu, 25 May 2017 12:21:22 +0000 (+0000)
Subject: dump-parse-tree.c (show_expr): Also replace with dumpfile for showing values for... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8442a5fbf0a061a9cec06118218218c12e499095;p=gcc.git

dump-parse-tree.c (show_expr): Also replace with dumpfile for showing values for forgotten case.

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

	* dump-parse-tree.c (show_expr):  Also replace
	with dumpfile for showing values for forgotten
	case.

From-SVN: r248456
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f129746490d..2674815ed8d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2017-05-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* dump-parse-tree.c (show_expr):  Also replace
+	with dumpfile for showing values for forgotten
+	case.
+
 2017-05-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	* dump-parse-tree.c (show_expr):  Replace stdout
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 73296da524d..5b692e1ea9c 100644
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -456,7 +456,7 @@ show_expr (gfc_expr *p)
 
 	  fputc (' ', dumpfile);
 
-	  mpfr_out_str (stdout, 10, 0, mpc_imagref (p->value.complex),
+	  mpfr_out_str (dumpfile, 10, 0, mpc_imagref (p->value.complex),
 			GFC_RND_MODE);
 	  if (p->ts.kind != gfc_default_complex_kind)
 	    fprintf (dumpfile, "_%d", p->ts.kind);