diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-17 16:20:29 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-17 16:20:29 +0000 |
| commit | 98f983d792009ade6cbc2827888d6a2a9be6e61e (patch) | |
| tree | 12c6f945d4ce6fba2365be96a4264b2795c7a182 /libgfortran/io | |
| parent | f6cc652487845dd77f16b1a803b6b407b76f8cd5 (diff) | |
| download | gcc-98f983d792009ade6cbc2827888d6a2a9be6e61e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101128 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index fbd38f13bec..556e0af38b3 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"); |