[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régressions libgomp.fortran: array_sections-3, array_sections-4

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:1736b706291e335688e83a57027f096bf2847998

commit 1736b706291e335688e83a57027f096bf2847998
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Aug 21 16:06:04 2025 +0200

    Correction régressions libgomp.fortran: array_sections-3, array_sections-4

Diff:
---
 gcc/fortran/trans-openmp.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index bfa34a5bcba0..d171de411598 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -3372,7 +3372,7 @@ gfc_trans_omp_array_section (stmtblock_t *block, 
gfc_exec_op op,
                           offset, fold_convert (ptrdiff_type_node, elemsz));
          offset = build4_loc (input_location, ARRAY_REF,
                               TREE_TYPE (TREE_TYPE (decl)),
-                              decl, offset, NULL_TREE, NULL_TREE);
+                              decl, offset, gfc_index_zero_node, NULL_TREE);
          OMP_CLAUSE_DECL (node) = offset;
 
          if (ptr_kind == GOMP_MAP_ATTACH_DETACH && openmp)