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

[Mikael Morin via Gcc-cvs]

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

commit a085c4e82b0385918b2569f7d1136027579c34d9
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri May 2 14:58:17 2025 +0200

    Correction régression char_pack_2

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 65128b6ea02f..00b065742710 100644
--- a/libgfortran/intrinsics/pack_generic.c
+++ b/libgfortran/intrinsics/pack_generic.c
@@ -535,7 +535,7 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char 
*array,
        }
 
       /* 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;