diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-09-09 21:23:25 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-09-09 21:23:25 +0000 |
| commit | 93950a4e516c0a1a6d9084b5cfda7cfb0696fb59 (patch) | |
| tree | 64a7538843f72d0d709b9184cd5b129b5b132e92 /libgfortran | |
| parent | 6d53221778e61d2c43f39b44c79f01d161ed7f67 (diff) | |
Fix pad status check.
2014-09-10 Janne Blomqvist <jb@gcc.gnu.org>
* io/transfer.c (read_block_form): Fix pad status check (found by
Thomas Schwinge with -Wlogical-not-parentheses).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@215092 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b79790e3f3c..29c35fa6277 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2014-09-10 Janne Blomqvist <jb@gcc.gnu.org> + + * io/transfer.c (read_block_form): Fix pad status check (found by + Thomas Schwinge with -Wlogical-not-parentheses). + 2014-08-31 Tobias Burnus <burnus@net-b.de> * caf/libcaf.h (_gfortran_caf_send, _gfortran_caf_get, diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index af2932c098d..dc1b6f4145a 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -475,7 +475,7 @@ read_block_form (st_parameter_dt *dtp, int * nbytes) if (norig != *nbytes) { /* Short read, this shouldn't happen. */ - if (!dtp->u.p.current_unit->pad_status == PAD_YES) + if (dtp->u.p.current_unit->pad_status == PAD_NO) { generate_error (&dtp->common, LIBERROR_EOR, NULL); source = NULL; |