Commit a79b9474 by Thomas Koenig

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
parent 610abc02
2017-05-24 Thomas Koenig <tkoenig@gcc.gnu.org> 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 PR fortran/66094
* frontend-passes.c (matrix_case): Add A2TB2. * frontend-passes.c (matrix_case): Add A2TB2.
(inline_limit_check): Handle MATMUL(TRANSPOSE(A),B) (inline_limit_check): Handle MATMUL(TRANSPOSE(A),B)
......
...@@ -422,7 +422,7 @@ show_expr (gfc_expr *p) ...@@ -422,7 +422,7 @@ show_expr (gfc_expr *p)
switch (p->ts.type) switch (p->ts.type)
{ {
case BT_INTEGER: 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) if (p->ts.kind != gfc_default_integer_kind)
fprintf (dumpfile, "_%d", p->ts.kind); fprintf (dumpfile, "_%d", p->ts.kind);
...@@ -436,7 +436,7 @@ show_expr (gfc_expr *p) ...@@ -436,7 +436,7 @@ show_expr (gfc_expr *p)
break; break;
case BT_REAL: 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) if (p->ts.kind != gfc_default_real_kind)
fprintf (dumpfile, "_%d", p->ts.kind); fprintf (dumpfile, "_%d", p->ts.kind);
break; break;
...@@ -449,7 +449,7 @@ show_expr (gfc_expr *p) ...@@ -449,7 +449,7 @@ show_expr (gfc_expr *p)
case BT_COMPLEX: case BT_COMPLEX:
fputs ("(complex ", dumpfile); 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); GFC_RND_MODE);
if (p->ts.kind != gfc_default_complex_kind) if (p->ts.kind != gfc_default_complex_kind)
fprintf (dumpfile, "_%d", p->ts.kind); fprintf (dumpfile, "_%d", p->ts.kind);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment