diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e3ed475ff036..2515e2bfc811 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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;
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 4fb198366037..48a52dce0f6b 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -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)