[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction ifunction-s.m4

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:8d8f13f0a6df3de46e738ab7881009678bc0186f

commit 8d8f13f0a6df3de46e738ab7881009678bc0186f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Sep 9 18:50:08 2025 +0200

    Correction ifunction-s.m4

Diff:
---
 libgfortran/m4/ifunction-s.m4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4
index 08fbf4485f8f..084b8ac29589 100644
--- a/libgfortran/m4/ifunction-s.m4
+++ b/libgfortran/m4/ifunction-s.m4
@@ -486,7 +486,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict 
retarray,
   for (n = 0; n < rank; n++)
     {
       count[n] = 0;
-      dstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,n) * string_len;
+      dstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(retarray,n);
     }
 
   dest = retarray->base_addr;