OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Steven G. Kargl 2015-12-04 16:37:54 +00:00
parent 4e722cf1dc
commit 6b2e46bf85
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/resolve.c
View File

@ -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