From 00c7a3c72adce967dc14999e14d166437dbb9f2d Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 10 Sep 2014 00:23:25 +0300 Subject: [PATCH] Fix pad status check. 2014-09-10 Janne Blomqvist * io/transfer.c (read_block_form): Fix pad status check (found by Thomas Schwinge with -Wlogical-not-parentheses). From-SVN: r215092 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/transfer.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b79790e..29c35fa 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2014-09-10 Janne Blomqvist + + * io/transfer.c (read_block_form): Fix pad status check (found by + Thomas Schwinge with -Wlogical-not-parentheses). + 2014-08-31 Tobias Burnus * caf/libcaf.h (_gfortran_caf_send, _gfortran_caf_get, diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index af2932c..dc1b6f4 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; -- 2.7.4