write.c (output_float): Update condition to not error when decimal precision in…

write.c (output_float): Update condition to not error when decimal precision in format specifier is zero.

2006-04-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* io/write.c (output_float): Update condition to not error when
	decimal precision in format specifier is zero.

From-SVN: r112656

libgfortran/ChangeLog

+2006-04-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* io/write.c (output_float): Update condition to not error when
+	decimal precision in format specifier is zero.
+
 2006-04-01  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	* config/fpu-387.h: Use previously added SSE code in all

libgfortran/io/write.c

@@ -473,7 +473,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, GFC_REAL_LARGEST value)
            ndigits - 1, value);
 
   /* Check the resulting string has punctuation in the correct places.  */
-  if (buffer[2] != '.' || buffer[ndigits + 2] != 'e')
+  if (d != 0 && (buffer[2] != '.' || buffer[ndigits + 2] != 'e'))
       internal_error (&dtp->common, "printf is broken");
 
   /* Read the exponent back in.  */