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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:6f5cf3c3f9bfb7616212104f42f6624b46d0c10f

commit 6f5cf3c3f9bfb7616212104f42f6624b46d0c10f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu May 22 11:30:53 2025 +0200

    Correction régression deferred_character_37

Diff:
---
 libgfortran/intrinsics/spread_generic.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/libgfortran/intrinsics/spread_generic.c 
b/libgfortran/intrinsics/spread_generic.c
index 6c2bc4231178..7f63e8b6c4e2 100644
--- a/libgfortran/intrinsics/spread_generic.c
+++ b/libgfortran/intrinsics/spread_generic.c
@@ -71,23 +71,23 @@ spread_internal (gfc_array_char *ret, const gfc_array_char 
*source,
       /* The front end has signalled that we need to populate the
         return array descriptor.  */
 
-      size_t ub, stride;
-      index_type spacing;
+      size_t ub, spacing;
+      index_type next_spacing;
 
       ret->dtype.rank = rrank;
 
       dim = 0;
       rs = 1;
-      spacing = size;
+      next_spacing = size;
       for (n = 0; n < rrank; n++)
        {
-         stride = rs;
+         spacing = next_spacing;
          if (n == *along - 1)
            {
              ub = ncopies - 1;
              rdelta = rs * size;
              rs *= ncopies;
-             spacing *= ncopies;
+             next_spacing *= ncopies;
            }
          else
            {
@@ -98,7 +98,7 @@ spread_internal (gfc_array_char *ret, const gfc_array_char 
*source,
 
              ub = extent[dim]-1;
              rs *= extent[dim];
-             spacing *= extent[dim];
+             next_spacing *= extent[dim];
              dim++;
            }