[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression pr78092.f90

[Mikael Morin]

https://gcc.gnu.org/g:f74907ca32a6cbd82e1c3a50ecd7b54908d070b8

commit f74907ca32a6cbd82e1c3a50ecd7b54908d070b8
Author: Mikael Morin <mikael@gcc.gnu.org>
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;