git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
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> 2007-07-21 Christopher D. Rickett <crickett@lanl.gov>
PR fortran/32627 PR fortran/32627
@ -108,13 +112,12 @@
Restore collateral damage from ISO C Binding merge. 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 PR libgfortran/32456
* io/unit.c (filename_from_unit): Don't use find_unit, instead search * io/unit.c (filename_from_unit): Don't use find_unit, instead search
for unit directly. for unit directly.
2007-07-02 Steven G. Kargl <kargl@gcc.gnu.org> 2007-07-02 Steven G. Kargl <kargl@gcc.gnu.org>
* Makefile.in: Regenerated with automake 1.9.6. * 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"); internal_error (&dtp->common, "Unsupported real kind during IO");
} }
if (errno != 0 && errno != EINVAL) if (errno == EINVAL)
{ {
generate_error (&dtp->common, ERROR_READ_VALUE, generate_error (&dtp->common, ERROR_READ_VALUE,
"Range error during floating point read"); "Error during floating point read");
return 1; return 1;
} }