diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 773f80636dbe..7151344be7e7 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-08-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/28354
+	* io/write.c: Check for special case of zero precision in format
+	and pre-round the real value.
+
 2006-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/25828
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index bee367c49ae7..79018ccd4fad 100644
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -426,6 +426,15 @@ output_float (st_parameter_dt *dtp, const fnode *f, GFC_REAL_LARGEST value)
   if (value < 0)
     value = -value;
 
+  /* Special case when format specifies no digits after the decimal point.  */
+  if (d == 0)
+    {
+      if (value < 0.5)
+	value = 0.0;
+      else if (value < 1.0)
+	value = value + 0.5;
+    }
+
   /* Printf always prints at least two exponent digits.  */
   if (value == 0)
     edigits = 2;