diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-12-04 16:37:54 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-12-04 16:37:54 +0000 |
| commit | 6e8d7db2b358fd019def3f1beef0caa43d416099 (patch) | |
| tree | 85ec204da7cd3322e7eeef7a2b781528d06900a0 /gcc/fortran/resolve.c | |
| parent | 26fa902d0209257e4eeba18cab6c0e61ea9fd5a0 (diff) | |
2015-12-04 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/68684
* resolve.c (resolve_lock_unlock_event): Fix logic faux pas.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@231281 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
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 |