https://gcc.gnu.org/g:f74907ca32a6cbd82e1c3a50ecd7b54908d070b8
commit f74907ca32a6cbd82e1c3a50ecd7b54908d070b8 Author: Mikael Morin <[email protected]> Date: Mon Sep 22 14:04:27 2025 +0200 Correction régression pr78092.f90 Diff: --- gcc/fortran/trans-array.cc | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 02143d0ed17c..b6ce66b3b646 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -3714,11 +3714,10 @@ give_up: /* Build a scalarized array reference using the vptr 'size'. */ static bool -build_class_array_ref (gfc_se *se, tree base, tree index) +build_class_array_ref (gfc_se *se, tree base, gfc_expr * expr, tree index) { tree size; tree decl = NULL_TREE; - gfc_expr *expr = se->ss->info->expr; if (!is_class_array_ref (base, expr, &decl)) return false; @@ -3824,7 +3823,7 @@ build_array_ref (gfc_se *se, tree array, tree ref_base, gfc_expr *expr, case ARS_CLASS_PTR_ARITH: { - bool success = build_class_array_ref (se, ref_base, index); + bool success = build_class_array_ref (se, ref_base, expr, index); gcc_assert (success); } break;
