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

[Mikael Morin via Gcc-cvs]

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

commit aa01cbb5e6672690294c34582948cf0285cbadd7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Aug 22 11:55:42 2025 +0200

    Correction régression libgomp udr14

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

diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index d171de411598..fa88535d83b5 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -645,15 +645,16 @@ gfc_walk_alloc_comps (tree decl, tree dest, tree var,
       gfc_init_block (&tmpblock);
       tem = gfc_conv_array_data (decl);
       tree declvar = build_fold_indirect_ref_loc (input_location, tem);
+      tree spacing = GFC_TYPE_ARRAY_SPACING (TREE_TYPE (decl), 0);
       tree declvref = gfc_build_array_ref (declvar, index, false, NULL_TREE,
-                                          GFC_TYPE_ARRAY_SPACING (declvar, 0));
+                                          spacing);
       tree destvar, destvref = NULL_TREE;
       if (dest)
        {
          tem = gfc_conv_array_data (dest);
          destvar = build_fold_indirect_ref_loc (input_location, tem);
          destvref = gfc_build_array_ref (destvar, index, false, NULL_TREE,
-                                         GFC_TYPE_ARRAY_SPACING (declvar, 0));
+                                         spacing);
        }
       gfc_add_expr_to_block (&tmpblock,
                             gfc_walk_alloc_comps (declvref, destvref,