From: Steven G. Kargl Date: Fri, 4 Dec 2015 16:37:54 +0000 (+0000) Subject: re PR fortran/68684 (gcc/fortran/resolve.c:8748: bad if test ?) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6b2e46bf85e0da961c9006111c8d309bb7a70973;p=gcc.git re PR fortran/68684 (gcc/fortran/resolve.c:8748: bad if test ?) 2015-12-04 Steven G. Kargl PR fortran/68684 * resolve.c (resolve_lock_unlock_event): Fix logic faux pas. From-SVN: r231281 --- diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 6598855f81a..10add62a839 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8745,7 +8745,7 @@ resolve_lock_unlock_event (gfc_code *code) !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