mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 17:35:54 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/47567 (Wrong output for small absolute values with F editing)

Browse Source 
2011-02-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/47567
	* io/write_float.def (output_float): Adjust width for F0.d to
	allow space for negative signs on zero.

From-SVN: r170318
This commit is contained in:
Jerry DeLisle 2011-02-19 15:10:55 +00:00
parent 6c1b5781b4
commit ffe89a288f
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgfortran/ChangeLog
View File

@ -1,6 +1,12 @@
2011-02-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2011-02-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/47567
* io/write_float.def (output_float): Adjust width for F0.d to
allow space for negative signs on zero.
2011-02-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/47667
* io/list_read.c (read_logical): Check for end of line before calling
eat_line. (read_integer): Likewise. (parse_real): Don't unget the
separator. Check for end of line before calling eat_line.

2
libgfortran/io/write_float.def
View File

@ -116,7 +116,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
/* Handle special cases. */
if (w == 0)
w = d + 1;
w = d + (sign != S_NONE ? 2 : 1) + (d == 0 ? 1 : 0);
/* For this one we choose to not output a decimal point.
F95 10.5.1.2.1 */