[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 #12 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-10 branch has been updated by Thomas Kथà¤nig
<tkoenig@gcc.gnu.org>:

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

commit r10-8532-gd0dbe7695cf1e7a7163952797c4590cfda137541
Author: Dominique d'Humieres <dhumieres.dominique@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.

    (cherry picked from commit aa7e7eff5ec165dc8463a0e74309801b15d1feda)