[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régressions

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:320c18dc38aa09b612718651cee305671cad9509

commit 320c18dc38aa09b612718651cee305671cad9509
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Jan 16 15:59:35 2025 +0100

    Correction régressions

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 0446cc97d4d6..b7d2b3280e78 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -9661,7 +9661,7 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
        }
 
 
-      set_descriptor (&se->pre, parm, desc, expr, loop.dimen, codim,
+      set_descriptor (&loop.pre, parm, desc, expr, loop.dimen, codim,
                      ss, info, loop.from, loop.to, unlimited_polymorphic,
                      !se->data_not_needed, subref_array_target);