[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction partielle simd7

[Mikael Morin via Gcc-cvs]

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

commit abbad099e4ddb57586b6cf9565aba2a1daaec0a9
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Aug 23 20:51:19 2025 +0200

    Correction partielle simd7

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

diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index 432cc9d6e00b..4f26e070541c 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -1282,9 +1282,9 @@ gfc_omp_linear_clause_add_loop (stmtblock_t *block, tree 
dest, tree src,
   gfc_init_block (&tmpblock);
   if (TREE_CODE (TREE_TYPE (dest)) == ARRAY_TYPE)
     {
-      desta = gfc_build_array_ref (dest, index, false, NULL_TREE,
+      desta = gfc_build_array_ref (dest, index, false, gfc_index_zero_node,
                                   GFC_TYPE_ARRAY_SPACING (TREE_TYPE (dest), 
0));
-      srca = gfc_build_array_ref (src, index, false, NULL_TREE,
+      srca = gfc_build_array_ref (src, index, false, gfc_index_zero_node,
                                  GFC_TYPE_ARRAY_SPACING (TREE_TYPE (src), 0));
     }
   else