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

[Mikael Morin via Gcc-cvs]

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

commit f84a022d5b3cb1df275451a7a97ba017418a22e9
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Aug 23 16:54:53 2025 +0200

    Correction partielle régression libgomp 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 fa88535d83b5..432cc9d6e00b 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -1283,9 +1283,9 @@ gfc_omp_linear_clause_add_loop (stmtblock_t *block, tree 
dest, tree src,
   if (TREE_CODE (TREE_TYPE (dest)) == ARRAY_TYPE)
     {
       desta = gfc_build_array_ref (dest, index, false, NULL_TREE,
-                                  GFC_TYPE_ARRAY_SPACING (dest, 0));
+                                  GFC_TYPE_ARRAY_SPACING (TREE_TYPE (dest), 
0));
       srca = gfc_build_array_ref (src, index, false, NULL_TREE,
-                                 GFC_TYPE_ARRAY_SPACING (src, 0));
+                                 GFC_TYPE_ARRAY_SPACING (TREE_TYPE (src), 0));
     }
   else
     {