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

[Mikael Morin]

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

commit 6f5cf3c3f9bfb7616212104f42f6624b46d0c10f
Author: Mikael Morin <mikael@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++;
 	    }