https://gcc.gnu.org/g:b944858600ad2e3d6526345e1e1efaa044fcf229
commit b944858600ad2e3d6526345e1e1efaa044fcf229 Author: Mikael Morin <[email protected]> Date: Mon Oct 19 14:55:00 2026 +0200 Correction partielle class_array_20 Diff: --- gcc/fortran/trans-expr.cc | 3 +++ 1 file changed, 3 insertions(+) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 55c4e326b771..735eb93d9541 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -3187,6 +3187,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr) && ref->u.ar.type != AR_ELEMENT); else gfc_conv_tmp_array_ref (se); + se->class_container = ss_info->class_container; } else { @@ -3433,6 +3434,8 @@ gfc_conv_unary_op (enum tree_code code, gfc_se * se, gfc_expr * expr) else se->expr = fold_build1_loc (input_location, code, type, operand.expr); + if (code == PAREN_EXPR) + se->class_container = operand.class_container; } /* Expand power operator to optimal multiplications when a value is raised
