diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-02 19:07:30 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-02 19:07:30 +0000 |
| commit | e76a2f93c54a0443d8ae1dc8ee056095059db951 (patch) | |
| tree | 4e39ff272ba04dd423bf240511009e404fa28d3f /libgfortran | |
| parent | 9f582dcaee48e2a0ed09e23b0558e77749f4daa2 (diff) | |
| download | gcc-e76a2f93c54a0443d8ae1dc8ee056095059db951.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161735 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 3 | ||||
| -rw-r--r-- | libgfortran/io/read.c | 9 |
3 files changed, 10 insertions, 8 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 645056bc30d..9a523d5eb82 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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> * configure.ac (gfortran_use_symver): Only check for Sun-style symbol diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 72016b73e29..c88edf69cb4 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1206,10 +1206,7 @@ parse_real (st_parameter_dt *dtp, void *buffer, int length) for ( ; c != ')'; c = next_char (dtp)) if (is_separator (c)) goto bad; - else - push_char (dtp, c); - push_char (dtp, ')'); c = next_char (dtp); if (is_separator (c)) unget_char (dtp, c); diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index 873d26c4d83..12aa0988f6d 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) |