[Bug fortran/118571] UTF-8 output and the A edit descriptor

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=118571

--- Comment #9 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Jerry DeLisle <jvdeli...@gcc.gnu.org>:

https://gcc.gnu.org/g:4daf088123b2c4c3114a4b96d5353c3d72eb8ac9

commit r15-7181-g4daf088123b2c4c3114a4b96d5353c3d72eb8ac9
Author: Jerry DeLisle <jvdeli...@gcc.gnu.org>
Date:   Thu Jan 23 12:58:14 2025 -0800

    Fortran: Fix UTF-8 output with A edit descriptor.

            This adjusts the source len for the case where the user has
            specified a field width with the A descriptor.

            PR libfortran/118571

    libgfortran/ChangeLog:

            * io/write.c (write_utf8_char4): Adjust the src_len to the
            format width w_len when greater than zero.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/utf8_3.f03: New test.