From 93950a4e516c0a1a6d9084b5cfda7cfb0696fb59 Mon Sep 17 00:00:00 2001 From: jb Date: Tue, 9 Sep 2014 21:23:25 +0000 Subject: 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). git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@215092 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/io/transfer.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libgfortran/io') 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; -- cgit v1.2.3