PR libfortran/37834
* io/write_float.def (output_float): Emit '0.' for special case of
format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141231
138bc75d-0d04-0410-961f-
82ee72b054a4
+2008-10-19 Jerry DeLisle <jvdelisle@gcc.gnu.org
+
+ PR libfortran/37834
+ * io/write_float.def (output_float): Emit '0.' for special case of
+ format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
+
2008-10-17 Jerry DeLisle <jvdelisle@gcc.gnu.org
PR libfortran/37863
sign = calculate_sign (dtp, sign_bit);
else
sign = calculate_sign (dtp, 0);
+
+ /* Handle special cases. */
+ if (w == 0)
+ w = 2;
+
+ /* For this one we choose to not output a decimal point.
+ F95 10.5.1.2.1 */
+ if (w == 1 && ft == FMT_F)
+ {
+ out = write_block (dtp, w);
+ if (out == NULL)
+ return;
+ *out = '0';
+ return;
+ }
+
}
/* Normalize the fractional component. */