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

[Mikael Morin via Gcc-cvs]

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

commit b5524e9ec42c89aa7a6442f4fce3912f9e303589
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 26cfcdab6c34..cf1f8e3619ed 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;