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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:4c03bf61a7e48ed294764d3cb1255f5cdea249c7

commit 4c03bf61a7e48ed294764d3cb1255f5cdea249c7
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 | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/libgfortran/intrinsics/reshape_generic.c 
b/libgfortran/intrinsics/reshape_generic.c
index addadabab812..baa26573c8d4 100644
--- a/libgfortran/intrinsics/reshape_generic.c
+++ b/libgfortran/intrinsics/reshape_generic.c
@@ -90,8 +90,6 @@ reshape_internal (parray *ret, parray *source, shape_type 
*shape,
 
   if (ret->base_addr == NULL)
     {
-      index_type alloc_size;
-
       spacing = GFC_DESCRIPTOR_SIZE(source);
 
       for (n = 0; n < rdim; n++)
@@ -104,13 +102,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 (alloc_size);
+      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)