Skip to content

R
riscv-gcc-1
Commit 6b2e46bf by Steven G. Kargl
Options

re PR fortran/68684 (gcc/fortran/resolve.c:8748: bad if test ?) 

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

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

From-SVN: r231281
parent 4e722cf1
Showing with 1 additions and 1 deletions
gcc/fortran/resolve.c
...@@ -8745,7 +8745,7 @@ resolve_lock_unlock_event (gfc_code *code) ...@@ -8745,7 +8745,7 @@ resolve_lock_unlock_event (gfc_code *code)
!gfc_is_coindexed (code->expr1)))) !gfc_is_coindexed (code->expr1))))
gfc_error ("Lock variable at %L must be a scalar of type LOCK_TYPE", gfc_error ("Lock variable at %L must be a scalar of type LOCK_TYPE",
&code->expr1->where); &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->ts.type != BT_DERIVED
|| code->expr1->expr_type != EXPR_VARIABLE || code->expr1->expr_type != EXPR_VARIABLE
|| code->expr1->ts.u.derived->from_intmod || code->expr1->ts.u.derived->from_intmod
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment