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

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

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

From-SVN: r120041
This commit is contained in:
Jerry DeLisle
2006-12-19 06:28:47 +00:00
parent ba0f726492
commit 59f8c0dd2c
2 changed files with 6 additions and 1 deletions

View File

@@ -1,3 +1,8 @@
2006-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30200
* trans-io.c (build_dt): Move post block for format_expr to end.
2006-12-16 Brooks Moses <brooks.moses@codesourcery.com>
* gfortran.texi: Added TeX support for document parts;

View File

@@ -1429,7 +1429,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)