diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e8033bee477..2e7a7a264ce 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 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");