* [PATCH, committed] Fix PR fortran/68684
@ 2015-12-04 16:39 Steve Kargl
0 siblings, 0 replies; only message in thread
From: Steve Kargl @ 2015-12-04 16:39 UTC (permalink / raw)
To: fortran, gcc-patches
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.
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
--
Steve
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2015-12-04 16:39 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-12-04 16:39 [PATCH, committed] Fix PR fortran/68684 Steve Kargl
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).