[gcc(refs/users/mikael/heads/refactor_descriptor_v203.04)] Correction event_4
Mikael Morin via Gcc-cvs <[email protected]>
| Newsgroups | gmane.comp.gcc.cvs |
|---|---|
| Message-ID | <[email protected]> |
https://gcc.gnu.org/g:4c553459b3916e55ce633d1bb9dd0f198b1e649a commit 4c553459b3916e55ce633d1bb9dd0f198b1e649a Author: Mikael Morin <[email protected]> Date: Wed Jul 15 13:06:54 2026 +0200 Correction event_4 Diff: --- gcc/fortran/trans-stmt.cc | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc index f13bb82b26a7..52bdf68bdb2d 100644 --- a/gcc/fortran/trans-stmt.cc +++ b/gcc/fortran/trans-stmt.cc @@ -1203,6 +1203,8 @@ gfc_trans_event_post_wait (gfc_code *code, gfc_exec_op op) gfc_start_block (&se.pre); gfc_init_se (&argse, NULL); gfc_conv_expr_val (&argse, code->expr1); + if (TREE_CODE (argse.expr) == NOP_EXPR) + argse.expr = TREE_OPERAND (argse.expr, 0); if (op == EXEC_EVENT_POST) gfc_add_modify (&se.pre, argse.expr,