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

[Mikael Morin]

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

commit f153b38fbc9bb55becb05dfc3bc46740b804d2e1
Author: Mikael Morin <mikael@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;