diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-23 02:42:05 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-23 02:42:05 +0000 |
| commit | cc15ed0f0949d8cc95e811526b01d84114260377 (patch) | |
| tree | ab5110f78fbc156b2c52f2b4ebde3a4e5d578396 /libgfortran | |
| parent | ec723219b006c760ec523705c630cd13e17040a3 (diff) | |
| download | gcc-cc15ed0f0949d8cc95e811526b01d84114260377.tar.gz | |
2007-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/read.c (convert_real): Generate error only on EINVAL.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126834 138bc75d-0d04-0410-961f-82ee72b054a4
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 56c5fcdcdbe..7cad67e89be 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 57a58929d4a..0f7d9a6dcfc 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; } |