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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:461be2e3b7372666d2896a7a58848d94f930550d

commit 461be2e3b7372666d2896a7a58848d94f930550d
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Oct 13 14:33:59 2025 +0200

    Correction régression dummy_3.f90

Diff:
---
 gcc/fortran/trans-array.cc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index b72556613a0d..b2d1fda2f3f3 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -8740,6 +8740,7 @@ gfc_conv_array_parameter (gfc_se *se, gfc_expr *expr, 
bool g77,
     {
       gcc_assert (se->expr);
       ctree = se->expr;
+      se->expr = gfc_class_data_get (se->expr);
     }
   else
     ctree = NULL_TREE;