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

[Mikael Morin]

https://gcc.gnu.org/g:332e8b0bc8d22724f2d0965dbb6f9d682c72383c

commit 332e8b0bc8d22724f2d0965dbb6f9d682c72383c
Author: Mikael Morin <mikael@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 cb95aa50cf80..37beebe2ced2 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);