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

[Mikael Morin via Gcc-cvs]

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

commit f4294293411be609c3c4ce568c1f93964dce7f6f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Jun 6 12:33:22 2025 +0200

    Correction régression dtio_1

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

diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c
index 7eb7d6f7acc7..52f44ef3fe70 100644
--- a/libgfortran/io/format.c
+++ b/libgfortran/io/format.c
@@ -1112,7 +1112,7 @@ parse_format_list (st_parameter_dt *dtp, bool *seen_dd)
                 array descriptor and save it in the format node.  */
              gfc_full_array_i4 *vp = tail->u.udf.vlist;
              GFC_DESCRIPTOR_DATA(vp) = xmalloc (i * sizeof(GFC_INTEGER_4));
-             GFC_DESCRIPTOR_DIMENSION_SET(vp, 0,1, i, 1);
+             GFC_DESCRIPTOR_DIMENSION_SET(vp, 0,1, i, sizeof(GFC_INTEGER_4));
              memcpy (GFC_DESCRIPTOR_DATA(vp), temp, i * sizeof(GFC_INTEGER_4));
              break;
            }