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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9cd337d5d49463465e70e74fd6d1a95feb4a5695

commit 9cd337d5d49463465e70e74fd6d1a95feb4a5695
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 bc9f066778f0..b3459ae187df 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);