OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/37863 (Display of a value close but less to 1 shows 2 with '(F3.0)')

Browse Source 
2008-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org

	PR libfortran/37707
	* io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
	* io/io.h (st_parameter_44): Fix id type declaration.

From-SVN: r141207
This commit is contained in:
Jerry DeLisle 2008-10-18 05:23:47 +00:00
parent 9edfa17f32
commit 80ad19715e
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-10-17 Jerry DeLisle <jvdelisle@gcc.gnu.org
PR libfortran/37707
* io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
* io/io.h (st_parameter_44): Fix id type declaration.
2008-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
* io/file_pos.c (unformatted_backspace): Normal case is

2
libgfortran/io/io.h
View File

@ -458,7 +458,7 @@ typedef struct st_parameter_43
typedef struct st_parameter_44
{
GFC_IO_INT *id;
GFC_INTEGER_4 *id;
GFC_IO_INT pos;
CHARACTER1 (asynchronous);
CHARACTER2 (blank);

2
libgfortran/io/write_float.def
View File

@ -746,7 +746,7 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \
if (tmp < 0.5)\
tmp = 0.0;\
else if (tmp < 1.0)\
tmp = tmp + 0.5;\
tmp = 1.0;\
}\
zero_flag = (tmp == 0.0);\
\