From 9341698a409acd6f762d40d547bd73488eecceb8 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 15 Dec 2006 19:48:08 +0000 Subject: re PR libfortran/30200 ([4.1 only] write(*,myfmt="(1X,a,'xyz')") "A" prints Az' instead of Axyz) 2006-12-15 Jerry DeLisle PR fortran/30200 * trans-io.c (build_dt): Move post block for format_expr to end. From-SVN: r119940 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-io.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1b0ac15..8af3276 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 3e658b8..b24a2f2 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) -- cgit v1.1