git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/43298 (fortran library does not read in NaN -Inf or Inf) 

2010-06-28  Tobias Burnus  <burnus@net-b.de>

        PR fortran/43298
        * list_read.c (parse_real): Do not pass (..) on for NAN(..).
        * read.c (convert_real): Fix comment about NAN/INF.

From-SVN: r161735
This commit is contained in:
Tobias Burnus 2010-07-02 21:07:30 +02:00 committed by Tobias Burnus
parent f0ee5e3e2a
commit 7a0208b791
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-06-28 Tobias Burnus <burnus@net-b.de>
PR fortran/43298
* list_read.c (parse_real): Do not pass (..) on for NAN(..).
* read.c (convert_real): Fix comment about NAN/INF.
2010-07-02 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> 2010-07-02 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* configure.ac (gfortran_use_symver): Only check for Sun-style symbol * configure.ac (gfortran_use_symver): Only check for Sun-style symbol

3
libgfortran/io/list_read.c
View File

@ -1206,10 +1206,7 @@ parse_real (st_parameter_dt *dtp, void *buffer, int length)
for ( ; c != ')'; c = next_char (dtp)) for ( ; c != ')'; c = next_char (dtp))
if (is_separator (c)) if (is_separator (c))
goto bad; goto bad;
else
push_char (dtp, c);
push_char (dtp, ')');
c = next_char (dtp); c = next_char (dtp);
if (is_separator (c)) if (is_separator (c))
unget_char (dtp, c); unget_char (dtp, c);

9
libgfortran/io/read.c
View File

@ -131,11 +131,10 @@ max_value (int length, int signed_flag)
/* convert_real()-- Convert a character representation of a floating /* convert_real()-- Convert a character representation of a floating
* point number to the machine number. Returns nonzero if there is a point number to the machine number. Returns nonzero if there is a
* range problem during conversion. Note: many architectures range problem during conversion. Note: many architectures
* (e.g. IA-64, HP-PA) require that the storage pointed to by the dest (e.g. IA-64, HP-PA) require that the storage pointed to by the dest
* argument is properly aligned for the type in question. TODO: argument is properly aligned for the type in question. */
* handle not-a-numbers and infinities. */
int int
convert_real (st_parameter_dt *dtp, void *dest, const char *buffer, int length) convert_real (st_parameter_dt *dtp, void *dest, const char *buffer, int length)