diff options
author | John David Anglin <dave.anglin@nrc-cnrc.gc.ca> | 2011-03-19 17:25:18 +0000 |
---|---|---|
committer | John David Anglin <danglin@gcc.gnu.org> | 2011-03-19 17:25:18 +0000 |
commit | 458653cc067362d84835bc39bd849dcdb4c13127 (patch) | |
tree | aa07149d8de7f023c9512af98794aaa978652cd3 /libgfortran/io/io.h | |
parent | 16e329fbae1208a4d576fb8e383f827200c2bb41 (diff) | |
download | gcc-458653cc067362d84835bc39bd849dcdb4c13127.zip gcc-458653cc067362d84835bc39bd849dcdb4c13127.tar.gz gcc-458653cc067362d84835bc39bd849dcdb4c13127.tar.bz2 |
re PR libfortran/35667 (HP-UX 10 has broken strtod)
PR fortran/35667
* io/io.h (convert_infnan): Declare.
* io/read.c (convert_infnan): New.
(read_f): Use convert_infnan to convert INFs and NANs.
* list_read.c (parse_real, read_real): Likewise.
From-SVN: r171182
Diffstat (limited to 'libgfortran/io/io.h')
-rw-r--r-- | libgfortran/io/io.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index ebe7f7c..b48582d 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -674,6 +674,9 @@ internal_proto(max_value); extern int convert_real (st_parameter_dt *, void *, const char *, int); internal_proto(convert_real); +extern int convert_infnan (st_parameter_dt *, void *, const char *, int); +internal_proto(convert_infnan); + extern void read_a (st_parameter_dt *, const fnode *, char *, int); internal_proto(read_a); |