diff options
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/read.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e8033be..2e7a7a2 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-06-18 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/19155 + * io/read.c (convert_real): strtod can set errno to EINVAL on an + empty string, but we shouldn't have an error in that case. + 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> PR libfortran/19216 diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index fbd38f1..556e0af 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -122,7 +122,7 @@ convert_real (void *dest, const char *buffer, int length) internal_error ("Unsupported real kind during IO"); } - if (errno != 0) + if (errno != 0 && errno != EINVAL) { generate_error (ERROR_READ_VALUE, "Range error during floating point read"); |