[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression internal_readwrite_3.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:844ab3285a221e855f87d8e133cd0cf02296287a

commit 844ab3285a221e855f87d8e133cd0cf02296287a
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Oct 7 21:30:39 2025 +0200

    Correction régression internal_readwrite_3.f90

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

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 9d861eb93b8e..8b5feceab0e9 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -263,7 +263,7 @@ next_char_internal (st_parameter_dt *dtp)
   if (likely (dtp->u.p.current_unit->bytes_left > 0))
     {
       if (unlikely (is_char4_unit(dtp))) /* Check for kind=4 internal unit.  */
-       length = sread (dtp->u.p.current_unit->s, &c, sizeof (gfc_char4_t));
+       length = sread (dtp->u.p.current_unit->s, &c, 1);
       else
        {
         char cc;