[patch, libgfortran] PR47567 Wrong output for small absolute values with F editing

[Jerry DeLisle]

Hi folks,

The attached patch fixes the concerns with where and where not to emit "*" with 
small values and no width or small width specified.

Regression tested on x86-64.

I will dejagnu the test case attached.

OK for Trunk?

Regards,

Jerry

2011-02-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/47567
	* io/write_float.def (output_float): Eliminate some redundant code.
	Adjust width for case of F0.X for values of zero and all other values.
	Expand cases where '*' is set to give cleaner results.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr47567-2.diff
Type: text/x-patch
Size: 1535 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20110205/e33fb7e0/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr47567.f90
Type: text/x-fortran
Size: 575 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20110205/e33fb7e0/attachment-0001.bin>