https://gcc.gnu.org/g:58fc86c2796397dca12e7f30ad43d1f949445ab7
commit 58fc86c2796397dca12e7f30ad43d1f949445ab7 Author: Mikael Morin <[email protected]> Date: Sat Sep 27 22:52:16 2025 +0200 Correction régression arrayio_13.f90 Diff: --- libgfortran/io/list_read.c | 1 - libgfortran/io/transfer.c | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 1915aee68ae4..12beaf93349f 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -251,7 +251,6 @@ next_char_internal (st_parameter_dt *dtp) goto done; } - record *= dtp->u.p.current_unit->recl; if (sseek (dtp->u.p.current_unit->s, record, SEEK_SET) < 0) return EOF; diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index da3672462ba0..4b28d03edbde 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -3744,7 +3744,7 @@ init_loop_spec (gfc_array_char *desc, array_loop_spec *ls, int empty; empty = 0; - index = 0; + index = GFC_DESCRIPTOR_SIZE (desc); *start_record = 0; for (i=0; i<rank; i++)
