OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r126834
This commit is contained in:
Jerry DeLisle 2007-07-23 02:42:05 +00:00
parent b92dddf099
commit db75c37a3a
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

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

4
libgfortran/io/read.c
View File

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