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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:03f62c04e928b83b882226d9170fd05dc8361209

commit 03f62c04e928b83b882226d9170fd05dc8361209
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Apr 29 15:57:12 2025 +0200

    Correction régression pack_generic

Diff:
---
 libgfortran/intrinsics/pack_generic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libgfortran/intrinsics/pack_generic.c 
b/libgfortran/intrinsics/pack_generic.c
index ebe44ec62669..65128b6ea02f 100644
--- a/libgfortran/intrinsics/pack_generic.c
+++ b/libgfortran/intrinsics/pack_generic.c
@@ -159,7 +159,7 @@ pack_internal (gfc_array_char *ret, const gfc_array_char 
*array,
       if (ret->base_addr == NULL)
        {
          /* Setup the array descriptor.  */
-         GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, 1);
+         GFC_DESCRIPTOR_DIMENSION_SET(ret, 0, 0, total-1, size);
 
          ret->offset = 0;
          /* xmallocarray allocates a single byte for zero size.  */