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

libgfortran/ChangeLog

+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.

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;
     }