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

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e3c5bbb5aad01bbd8dcdaff83f38d143f765ade0..280f520af31f7a37613a87d167855ca7ac699630 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index edd2933c3de1fc7ceae3266068f1d562bec49315..39192dde7cdd0a175140a2cebbf0570bedaa32a8 100644 (file)
--- a/libgfortran/io/write.c
+++ b/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.  */