diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-23 02:42:05 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-23 02:42:05 +0000 |
| commit | db75c37a3a7aca7e7f4c634662d9cd9fab11518e (patch) | |
| tree | ab5110f78fbc156b2c52f2b4ebde3a4e5d578396 /libgfortran | |
| parent | b92dddf099f54de3ab182a1c73a86687c3124d47 (diff) | |
| download | gcc-db75c37a3a7aca7e7f4c634662d9cd9fab11518e.zip gcc-db75c37a3a7aca7e7f4c634662d9cd9fab11518e.tar.gz gcc-db75c37a3a7aca7e7f4c634662d9cd9fab11518e.tar.bz2 | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/read.c | 4 |
2 files changed, 7 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 56c5fcd..7cad67e 100644 --- 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 57a5892..0f7d9a6 100644 --- 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; } |