diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-06-17 18:20:29 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-17 16:20:29 +0000 |
| commit | 853a4203b72296bc59f14ae6e8c467208e9679d2 (patch) | |
| tree | 12c6f945d4ce6fba2365be96a4264b2795c7a182 /libgfortran | |
| parent | a2eafc7685e37c0077d9a4c4598b76bab9bec5d2 (diff) | |
| download | gcc-853a4203b72296bc59f14ae6e8c467208e9679d2.zip gcc-853a4203b72296bc59f14ae6e8c467208e9679d2.tar.gz gcc-853a4203b72296bc59f14ae6e8c467208e9679d2.tar.bz2 | |
re PR libfortran/19155 ([4.0 only] blanks not treated as zeros in 'E' format read (NIST FM110.FOR))
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.
From-SVN: r101128
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"); |