re PR libfortran/30200 ([4.1 only] write(*,myfmt="(1X,a,'xyz')") "A" prints Az...

2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/30200
	* trans-io.c (build_dt): Move post block for format_expr to end.

From-SVN: r119940

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1b0ac1562c75ac733eb1750e534ea5909f1f64bc..8af327635acd2ca71377755483ab2add079b2763 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/30200
+       * trans-io.c (build_dt): Move post block for format_expr to end.
+
 2006-12-14  Richard Guenther  <rguenther@suse.de>
            Diego Novillo  <dnovillo@redhat.com>
 

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 3e658b8c00cb4cdd7bb56d29b64e66feb25c14af..b24a2f262bf4e32bfcd32efc912ebcd8e3dd569a 100644 (file)
--- 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)