From c1f61f139695bc18ddd7c9a665f6e814ac0732d5 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Fri, 15 Dec 2006 19:48:08 +0000 Subject: [PATCH] 2006-12-15 Jerry DeLisle PR fortran/30200 * trans-io.c (build_dt): Move post block for format_expr to end. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119940 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-io.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1b0ac1562c75..8af327635acd 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-12-15 Jerry DeLisle + + PR fortran/30200 + * trans-io.c (build_dt): Move post block for format_expr to end. + 2006-12-14 Richard Guenther Diego Novillo diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 3e658b8c00cb..b24a2f262bf4 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -1430,7 +1430,7 @@ build_dt (tree function, gfc_code * code) dt->advance); if (dt->format_expr) - mask |= set_string (&block, &post_block, var, IOPARM_dt_format, + mask |= set_string (&block, &post_end_block, var, IOPARM_dt_format, dt->format_expr); if (dt->format_label) -- 2.47.3