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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:75657eeda43e11388d0cbcdd07b74b7d1a28ab43

commit 75657eeda43e11388d0cbcdd07b74b7d1a28ab43
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Jun 11 11:48:04 2025 +0200

    Correction régression reduce_1

Diff:
---
 libgfortran/intrinsics/reshape_generic.c | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/libgfortran/intrinsics/reshape_generic.c 
b/libgfortran/intrinsics/reshape_generic.c
index 62eea713fe21..c9298caef74f 100644
--- a/libgfortran/intrinsics/reshape_generic.c
+++ b/libgfortran/intrinsics/reshape_generic.c
@@ -104,13 +104,10 @@ reshape_internal (parray *ret, parray *source, shape_type 
*shape,
        }
       ret->offset = 0;
 
-      if (unlikely (spacing < 1))
-       alloc_size = 0; /* xmalloc will allocate 1 byte.  */
-      else
-       alloc_size = spacing;
-
       ret->base_addr = xmalloc (spacing);
       ret->dtype.rank = rdim;
+      ret->dtype.elem_len = GFC_DESCRIPTOR_SIZE (source);
+      ret->span = GFC_DESCRIPTOR_SIZE (source);
     }
 
   if (shape_empty)