diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 36c0098cab2..bb860d4816f 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/38285
+	* write_float.def (WRITE_FLOAT): Zero the float value for special case
+	only if	scale_factor = 0.
+	
 2008-11-23  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/38234
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 8bb4123084f..d8799f2ae03 100644
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -760,7 +760,8 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \
 	    return;\
 	  }\
 	tmp = sign_bit ? -tmp : tmp;\
-	if (f->u.real.d == 0 && f->format == FMT_F)\
+	if (f->u.real.d == 0 && f->format == FMT_F\
+	    && dtp->u.p.scale_factor == 0)\
 	  {\
 	    if (tmp < 0.5)\
 	      tmp = 0.0;\