diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2014-09-10 00:23:25 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2014-09-10 00:23:25 +0300 |
| commit | 00c7a3c72adce967dc14999e14d166437dbb9f2d (patch) | |
| tree | 64a7538843f72d0d709b9184cd5b129b5b132e92 /libgfortran/io/transfer.c | |
| parent | 4abf82644ee3d501ab3b2c0e18f28ba888a6f2c3 (diff) | |
| download | gcc-00c7a3c72adce967dc14999e14d166437dbb9f2d.zip gcc-00c7a3c72adce967dc14999e14d166437dbb9f2d.tar.gz gcc-00c7a3c72adce967dc14999e14d166437dbb9f2d.tar.bz2 | |
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).
From-SVN: r215092
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |