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

[Mikael Morin via Gcc-cvs]

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

commit f3275b34704c8463bdfeecc0f0dffa838d8db986
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon May 26 18:52:29 2025 +0200

    Correction régression assign_10

Diff:
---
 gcc/fortran/trans-array.cc              | 2 +-
 gcc/testsuite/gfortran.dg/assign_10.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 264abd407b46..11a203e474b8 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3518,7 +3518,7 @@ conv_array_index (gfc_se * se, gfc_ss * ss, int dim, int 
i, gfc_array_ref * ar)
          index = gfc_build_array_ref (data, index,
                                       non_negative_strides_array_p (desc),
                                       se->loop->from[i],
-                                      gfc_conv_array_spacing (desc, 0));
+                                      
info->subscript[dim]->info->data.array.spacing[0]);
          index = gfc_evaluate_now (index, &se->pre);
          index = fold_convert (gfc_array_index_type, index);
 
diff --git a/gcc/testsuite/gfortran.dg/assign_10.f90 
b/gcc/testsuite/gfortran.dg/assign_10.f90
index c207f9e5e2b4..965e91c66bb2 100644
--- a/gcc/testsuite/gfortran.dg/assign_10.f90
+++ b/gcc/testsuite/gfortran.dg/assign_10.f90
@@ -23,5 +23,5 @@ end
 ! cases will all yield a temporary, so that atmp appears 18 times.
 ! Note that it is the kind conversion that generates the temp.
 !
-! { dg-final { scan-tree-dump-times "parm" 20 "original" } }
+! { dg-final { scan-tree-dump-times "parm" 18 "original" } }
 ! { dg-final { scan-tree-dump-times "atmp" 20 "original" } }