diff mbox

[committed] Fix PR fortran/68684

Message ID 20151204163932.GA79630@troutmask.apl.washington.edu
State New
Headers show

Commit Message

Steve Kargl Dec. 4, 2015, 4:39 p.m. UTC 
I've committed the obvious patch after confirmation from
the original author that it is correct.

2015-12-04  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68684
	* resolve.c (resolve_lock_unlock_event): Fix logic faux pas.
diff mbox

Patch

Index: resolve.c
===================================================================
--- resolve.c	(revision 231243)
+++ resolve.c	(working copy)
@@ -8745,7 +8745,7 @@  resolve_lock_unlock_event (gfc_code *cod
 	      !gfc_is_coindexed (code->expr1))))
     gfc_error ("Lock variable at %L must be a scalar of type LOCK_TYPE",
 	       &code->expr1->where);
-  else if ((code->op == EXEC_EVENT_POST && code->op == EXEC_EVENT_WAIT)
+  else if ((code->op == EXEC_EVENT_POST || code->op == EXEC_EVENT_WAIT)
 	   && (code->expr1->ts.type != BT_DERIVED
 	       || code->expr1->expr_type != EXPR_VARIABLE
 	       || code->expr1->ts.u.derived->from_intmod