OSDN Git Service

PR libfortran/19155
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 17 Jun 2005 16:20:29 +0000 (16:20 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 17 Jun 2005 16:20:29 +0000 (16:20 +0000)
* 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

libgfortran/ChangeLog
libgfortran/io/read.c

index e8033be..2e7a7a2 100644 (file)
@@ -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
index fbd38f1..556e0af 100644 (file)
@@ -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");