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

commit fc271c6f8a44b81205aac0ee33d57d5f564916d4
Author: Mikael Morin <[email protected]>
Date:   Fri Oct 3 17:29:57 2025 +0200

    Correction régression internal_readwrite_3.f90

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

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index 97f6b83d3455..a0b9f547000c 100644
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -1079,7 +1079,7 @@ open_internal4 (char *base, size_t length, gfc_offset 
offset)
   s->buffer = base;
   s->buffer_offset = offset;
 
-  s->active = s->file_length = length;
+  s->active = s->file_length = length * sizeof (gfc_char4_t);
 
   s->st.vptr = &mem4_vtable;

Reply via email to