[Bug libfortran/93567] G edit descriptor uses E instead of F editing in rounding mode UP

[cvs-commit at gcc dot gnu.org]

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

--- Comment #11 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Thomas Kथà¤nig <tkoe...@gcc.gnu.org>:

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

commit r11-2310-gaa7e7eff5ec165dc8463a0e74309801b15d1feda
Author: Dominique d'Humieres <dhumieres.domini...@free.fr>
Date:   Fri Jul 24 20:27:53 2020 +0200

    PR 93567, G edit descriptor uses E instead of F editing in rounding mode
UP.

    The switch between FMT_E and FMT_F is based on the absolute value.
    Set r=0 for rounding toward zero and r = 1 otherwise.
    If (exp_d - m) == 1 there is no rounding needed.

    libgfortran/ChangeLog:

            PR fortran/93567
            * io/write_float.def (determine_en_precision): Fix switch between
            FMT_E and FMT_F.

    gcc/testsuite/ChangeLog:

            PR fortran/93567
            * gfortran.dg/round_3.f08: Add test cases.