diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-07-02 21:07:30 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-07-02 21:07:30 +0200 |
| commit | 7a0208b79131d47d8ba5e91fd2ce0dead363a486 (patch) | |
| tree | 4e39ff272ba04dd423bf240511009e404fa28d3f /libgfortran/io/read.c | |
| parent | f0ee5e3e2a293180e1f36e79d342ac9ec8cd81fa (diff) | |
| download | gcc-7a0208b79131d47d8ba5e91fd2ce0dead363a486.zip gcc-7a0208b79131d47d8ba5e91fd2ce0dead363a486.tar.gz gcc-7a0208b79131d47d8ba5e91fd2ce0dead363a486.tar.bz2 | |
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
Diffstat (limited to 'libgfortran/io/read.c')
| -rw-r--r-- | libgfortran/io/read.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index 873d26c..12aa098 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -131,11 +131,10 @@ max_value (int length, int signed_flag) /* convert_real()-- Convert a character representation of a floating - * point number to the machine number. Returns nonzero if there is a - * range problem during conversion. Note: many architectures - * (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: - * handle not-a-numbers and infinities. */ + point number to the machine number. Returns nonzero if there is a + range problem during conversion. Note: many architectures + (e.g. IA-64, HP-PA) require that the storage pointed to by the dest + argument is properly aligned for the type in question. */ int convert_real (st_parameter_dt *dtp, void *dest, const char *buffer, int length) |