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

[Mikael Morin]

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

commit b8ae8386b27f1d84a915ef8328d5a930c44d433b
Author: Mikael Morin <mikael@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" } }