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

[Mikael Morin via Gcc-cvs]

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

commit b39f0c43255e2367d77bcb86ee248a145954e6ba
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu May 8 14:56:01 2025 +0200

    Correction régression pr85938

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 2a3bbf0b2d97..bebfc9dff1d2 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3686,7 +3686,7 @@ build_array_ref (tree array, tree offset, bool 
use_array_ref)
     {
       if (TREE_CODE (TREE_TYPE (array)) == POINTER_TYPE)
        array = build_fold_indirect_ref_loc (input_location, array);
-      return gfc_build_array_ref (array, offset, true);
+      return gfc_build_array_ref (array, offset, true, gfc_index_zero_node);
     }
  
   tree ptr = gfc_conv_array_data (array);