[gfortran] ping PATCH PR libfortran/20124

[François-Xavier Coudert]

This patch fixes PR libfortran/20124. If comes with a nice testcase for 
inclusion into gfortran testsuite. Details are the same as last time:

 > I would have liked to be able not to use another variable
 > (which I called nzero_real), but I couldn't find any simple other way to
 > do it. So, we store in nzero_real the number of leading zeros in the
 > fractionnal part of the floating point number, whatever the width of the
 > format is.

This is *strapped and regtested on i686-linux. I hereby donate this patch to 
the FSF.


2005-03-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

	PR libfortran/20124
	* write.c (output_float): Adds a nzero_real variable to store
	  the number of leading zeros whatever the format width is.
	  Corrects the rounding of numbers less than 10^(-width).


2005-03-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

	PR libfortran/20124
	* rounding_zero.f90: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr20124.diff
Type: text/x-patch
Size: 1517 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20050303/df80429c/attachment.bin>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: rounding_zero.f90
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20050303/df80429c/attachment.f90>