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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:93b2a1554436de9553fbe23507395531875c06b5

commit 93b2a1554436de9553fbe23507395531875c06b5
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 80501db70448..828cbd49767b 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3567,7 +3567,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);