From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Tue, 9 Sep 2014 21:23:25 +0000 (+0300)
Subject: Fix pad status check.
X-Git-Tag: releases/gcc-5.1.0~4720
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=00c7a3c72adce967dc14999e14d166437dbb9f2d;p=thirdparty%2Fgcc.git

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
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index b79790e3f3c6..29c35fa62772 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 af2932c098d1..dc1b6f4145ac 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;