Hi Jerry,
patch looks good. Ok for mainline and backport after grace period.
Thanks for the patch,
Andre
On Mon, 9 Dec 2024 20:31:08 -0800
Jerry D <jvdelis...@gmail.com> wrote:
> Hi all,
>
> The attached patch fixes this bug by checking for the case of a short
> READ that should be padded with blanks and if the BZ mode is enabled,
> those blanks should be treated as trailing zero's.
>
> New test case courtesy Malcom Cohen.
>
> Regression tested on X86_64_linux_gnu.
>
> OK for trunk and backport to 14 in a few days.
>
> uthor: Jerry DeLisle <jvdeli...@gcc.gnu.org>
> Date: Mon Dec 9 20:11:23 2024 -0800
>
> Fortran: Fix READ with padding in BLANK ZERO mode.
>
> PR fortran/117819
>
> libgfortran/ChangeLog:
>
> * io/read.c (read_decimal): If the read value is short of the
> specified width and pad mode is PAD yes, check for BLANK ZERO
> and adjust the value accordingly.
> (read_decimal_unsigned): Likewise.
> (read_radix): Likewise.
>
> gcc/testsuite/ChangeLog:
>
> * gfortran.dg/pr117819.f90: New test.
--
Andre Vehreschild * Email: vehre ad gmx dot de
