PR 93592 - Invalid UP/DOWN rounding with EN descriptor.
authorDominique d'Humieres <dhumieres.dominique@free.fr>
Fri, 24 Jul 2020 18:07:12 +0000 (20:07 +0200)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Fri, 24 Jul 2020 18:47:30 +0000 (20:47 +0200)
commit05e0971bcf94a481cbfa2731484f024a67dbd4a5
treeda424021adbb7e0e14a969f638ee6cb42b02cfd6
parent048ba9c02db7ee461abe86a37544fcd4e0cf8858
PR 93592 - Invalid UP/DOWN rounding with EN descriptor.

The fix is obvious (I have added a comment). The tests are probably
an overkill, but it does not hurt.

libgfortran/ChangeLog:

PR fortran/93592
* io/write_float.def (build_float_string): Do not reset
  nbefore for FMT_F and FMT_EN.

gcc/testsuite/ChangeLog:

PR fortran/93592
* gfortran.dg/fmt_en.f90: Adjust test.
* gfortran.dg/fmt_en_rd.f90: New test.
* gfortran.dg/fmt_en_rn.f90: New test.
* gfortran.dg/fmt_en_ru.f90: New test.
* gfortran.dg/fmt_en_rz.f90: New test.
gcc/testsuite/gfortran.dg/fmt_en.f90
gcc/testsuite/gfortran.dg/fmt_en_rd.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/fmt_en_rn.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/fmt_en_ru.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/fmt_en_rz.f90 [new file with mode: 0644]
libgfortran/io/write_float.def