https://gcc.gnu.org/g:c8aed50afb8ed37a6adc52be5e2d8f581ea807c9
commit c8aed50afb8ed37a6adc52be5e2d8f581ea807c9 Author: Mikael Morin <[email protected]> Date: Tue Oct 7 21:11:16 2025 +0200 Correction régression maxval_char_2.f90 Diff: --- libgfortran/io/unit.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 0180fe78257a..6d7d8d8f16ad 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -522,6 +522,8 @@ set_internal_unit (st_parameter_dt *dtp, gfc_unit *iunit, int kind) iunit->internal_unit_len = init_loop_spec (dtp->internal_unit_desc, iunit->ls, &start_record); } + else if (kind != 1) + iunit->internal_unit_len *= kind; /* Set initial values for unit parameters. */ if (kind == 4)
