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/io/read.c | |
| 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/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 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) |