read.c (convert_real): Generate error only on EINVAL.

2007-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* io/read.c (convert_real): Generate error only on EINVAL.

From-SVN: r126834

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 56c5fcdcdbe0bd032a04df61231f49d627c423bd..7cad67e89be4964343bc8bb070041e8a3c65bb14 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       * io/read.c (convert_real): Generate error only on EINVAL.
+
 2007-07-21  Christopher D. Rickett  <crickett@lanl.gov>
 
        PR fortran/32627
@@ -108,13 +112,12 @@
 
        Restore collateral damage from ISO C Binding merge.
 
-       2007-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+2007-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/32456
        * io/unit.c (filename_from_unit): Don't use find_unit, instead search
        for unit directly.
 
-
 2007-07-02  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        * Makefile.in:  Regenerated with automake 1.9.6.

diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c
index 57a58929d4a9d28283102770121e2a2c783cfd19..0f7d9a6dcfc61b183055999d78c39022d6b1b0a8 100644 (file)
--- a/libgfortran/io/read.c
+++ b/libgfortran/io/read.c
@@ -177,10 +177,10 @@ convert_real (st_parameter_dt *dtp, void *dest, const char *buffer, int length)
       internal_error (&dtp->common, "Unsupported real kind during IO");
     }
 
-  if (errno != 0 && errno != EINVAL)
+  if (errno == EINVAL)
     {
       generate_error (&dtp->common, ERROR_READ_VALUE,
-                     "Range error during floating point read");
+                     "Error during floating point read");
       return 1;
     }