aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran
diff options
context:
space:
mode:
authorThomas Koenig <tkoenig@gcc.gnu.org>2017-05-24 19:00:47 +0000
committerThomas Koenig <tkoenig@gcc.gnu.org>2017-05-24 19:00:47 +0000
commita79b947460e03896e5f08a1dfcbafa858ac5fdb8 (patch)
tree49de0b0dd1327fa74a50003bb3bde8dae42bc6a0 /gcc/fortran
parent610abc0212d728ea9f64309c549e6a37d5504517 (diff)
downloadgcc-a79b947460e03896e5f08a1dfcbafa858ac5fdb8.zip
gcc-a79b947460e03896e5f08a1dfcbafa858ac5fdb8.tar.gz
gcc-a79b947460e03896e5f08a1dfcbafa858ac5fdb8.tar.bz2
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
Diffstat (limited to 'gcc/fortran')
-rw-r--r--gcc/fortran/ChangeLog5
-rw-r--r--gcc/fortran/dump-parse-tree.c6
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 760cbe2..f129746 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
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
* frontend-passes.c (matrix_case): Add A2TB2.
(inline_limit_check): Handle MATMUL(TRANSPOSE(A),B)
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 2d6d205..73296da 100644
--- 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);