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

commit cb3e7dc2c0a3997fbee7ca020e663a037b05b5d1
Author: Mikael Morin <[email protected]>
Date:   Tue Sep 9 18:26:03 2025 +0200

    Correction spread.m4

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

diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4
index bff3a6a62364..fbf26958cae0 100644
--- a/libgfortran/m4/spread.m4
+++ b/libgfortran/m4/spread.m4
@@ -85,7 +85,7 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source,
          if (n == along - 1)
            {
              ub = ncopies - 1;
-             rdelta = rs;
+             rdelta = rs * sizeof ('rtype_name`);
              rs *= ncopies;
            }
          else

Reply via email to