2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30910
* io/write.c (output_float): Add condition of format F only for
special case rounding with zero precision.
From-SVN: r122250
+2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/30910
+ * io/write.c (output_float): Add condition of format F only for
+ special case rounding with zero precision.
+
2007-02-19 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30533
value = -value;
/* Special case when format specifies no digits after the decimal point. */
- if (d == 0)
+ if (d == 0 && ft == FMT_F)
{
if (value < 0.5)
value = 0.0;