[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression pr93671

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:129921d40fb49d296a65851f227046643bc4439d

commit 129921d40fb49d296a65851f227046643bc4439d
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue May 6 21:48:41 2025 +0200

    Correction régression pr93671

Diff:
---
 gcc/fortran/trans-array.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 9a91fa64c2a6..18ffdd5c917d 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -8821,13 +8821,13 @@ structure_alloc_comps (gfc_symbol * der_type, tree 
decl, tree dest,
       /* Build the body of the loop.  */
       gfc_init_block (&loopbody);
 
-      vref = gfc_build_array_ref (var, index, true);
+      vref = gfc_build_array_ref (var, index, true, gfc_index_zero_node);
 
       if (purpose == COPY_ALLOC_COMP || purpose == COPY_ONLY_ALLOC_COMP)
        {
          tmp = build_fold_indirect_ref_loc (input_location,
                                             gfc_conv_array_data (dest));
-         dref = gfc_build_array_ref (tmp, index, true);
+         dref = gfc_build_array_ref (tmp, index, true, gfc_index_zero_node);
          tmp = structure_alloc_comps (der_type, vref, dref, rank,
                                       COPY_ALLOC_COMP, caf_mode, args,
                                       no_finalization);