[gcc/devel/power-ieee128] libgfortran: -mabi=ieeelongdouble I/O fix

[gcc/devel/power-ieee128] libgfortran: -mabi=ieeelongdouble I/O fix

[Jakub Jelinek]

https://gcc.gnu.org/g:7e23d6ef2955416c1076f384151a5d6a4fc4c57e

commit 7e23d6ef2955416c1076f384151a5d6a4fc4c57e
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Tue Jan 4 15:54:22 2022 +0100

    libgfortran: -mabi=ieeelongdouble I/O fix
    
    The following patch fixes:
    FAIL: gfortran.dg/fmt_en.f90   -O0  output pattern test
    FAIL: gfortran.dg/fmt_en.f90   -O1  output pattern test
    FAIL: gfortran.dg/fmt_en.f90   -O2  output pattern test
    FAIL: gfortran.dg/fmt_en.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  output pattern test
    FAIL: gfortran.dg/fmt_en.f90   -O3 -g  output pattern test
    FAIL: gfortran.dg/fmt_en.f90   -Os  output pattern test
    FAIL: gfortran.dg/fmt_en_rd.f90   -O0  output pattern test
    FAIL: gfortran.dg/fmt_en_rd.f90   -O1  output pattern test
    FAIL: gfortran.dg/fmt_en_rd.f90   -O2  output pattern test
    FAIL: gfortran.dg/fmt_en_rd.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  output pattern test
    FAIL: gfortran.dg/fmt_en_rd.f90   -O3 -g  output pattern test
    FAIL: gfortran.dg/fmt_en_rd.f90   -Os  output pattern test
    FAIL: gfortran.dg/fmt_en_rn.f90   -O0  output pattern test
    FAIL: gfortran.dg/fmt_en_rn.f90   -O1  output pattern test
    FAIL: gfortran.dg/fmt_en_rn.f90   -O2  output pattern test
    FAIL: gfortran.dg/fmt_en_rn.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  output pattern test
    FAIL: gfortran.dg/fmt_en_rn.f90   -O3 -g  output pattern test
    FAIL: gfortran.dg/fmt_en_rn.f90   -Os  output pattern test
    FAIL: gfortran.dg/fmt_en_ru.f90   -O0  output pattern test
    FAIL: gfortran.dg/fmt_en_ru.f90   -O1  output pattern test
    FAIL: gfortran.dg/fmt_en_ru.f90   -O2  output pattern test
    FAIL: gfortran.dg/fmt_en_ru.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  output pattern test
    FAIL: gfortran.dg/fmt_en_ru.f90   -O3 -g  output pattern test
    FAIL: gfortran.dg/fmt_en_ru.f90   -Os  output pattern test
    FAIL: gfortran.dg/fmt_en_rz.f90   -O0  output pattern test
    FAIL: gfortran.dg/fmt_en_rz.f90   -O1  output pattern test
    FAIL: gfortran.dg/fmt_en_rz.f90   -O2  output pattern test
    FAIL: gfortran.dg/fmt_en_rz.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  output pattern test
    FAIL: gfortran.dg/fmt_en_rz.f90   -O3 -g  output pattern test
    FAIL: gfortran.dg/fmt_en_rz.f90   -Os  output pattern test
    FAIL: gfortran.dg/fmt_g0_7.f08   -O0  execution test
    FAIL: gfortran.dg/fmt_g0_7.f08   -O1  execution test
    FAIL: gfortran.dg/fmt_g0_7.f08   -O2  execution test
    FAIL: gfortran.dg/fmt_g0_7.f08   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  execution test
    FAIL: gfortran.dg/fmt_g0_7.f08   -O3 -g  execution test
    FAIL: gfortran.dg/fmt_g0_7.f08   -Os  execution test
    FAIL: gfortran.dg/fmt_pf.f90   -O0  output pattern test
    FAIL: gfortran.dg/fmt_pf.f90   -O1  output pattern test
    FAIL: gfortran.dg/fmt_pf.f90   -O2  output pattern test
    FAIL: gfortran.dg/fmt_pf.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  output pattern test
    FAIL: gfortran.dg/fmt_pf.f90   -O3 -g  output pattern test
    FAIL: gfortran.dg/fmt_pf.f90   -Os  output pattern test
    FAIL: gfortran.dg/large_real_kind_1.f90   -O0  execution test
    FAIL: gfortran.dg/large_real_kind_1.f90   -O1  execution test
    FAIL: gfortran.dg/large_real_kind_1.f90   -O2  execution test
    FAIL: gfortran.dg/large_real_kind_1.f90   -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions  execution test
    FAIL: gfortran.dg/large_real_kind_1.f90   -O3 -g  execution test
    FAIL: gfortran.dg/large_real_kind_1.f90   -Os  execution test
    
    2022-01-04  Jakub Jelinek  <jakub@redhat.com>
    
            * io/write_float.def (CALCULATE_EXP): If HAVE_GFC_REAL_17, also use
            CALCULATE_EXP(17).
            (determine_en_precision): Use 17 instead of 16 as first EN_PREC
            argument for kind 17.
            (get_float_string): Use 17 instead of 16 as first FORMAT_FLOAT
            argument for kind 17.

Diff:
---
 libgfortran/io/write_float.def | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 5aa5fce775b..9e5a38dbc3f 100644
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -799,6 +799,10 @@ CALCULATE_EXP(10)
 #ifdef HAVE_GFC_REAL_16
 CALCULATE_EXP(16)
 #endif
+
+#ifdef HAVE_GFC_REAL_17
+CALCULATE_EXP(17)
+#endif
 #undef CALCULATE_EXP
 
 
@@ -942,7 +946,7 @@ determine_en_precision (st_parameter_dt *dtp, const fnode *f,
 #endif
 #ifdef HAVE_GFC_REAL_17
     case 17:
-      EN_PREC(16,Q)
+      EN_PREC(17,Q)
 #endif
       break;
     default:
@@ -1150,7 +1154,7 @@ get_float_string (st_parameter_dt *dtp, const fnode *f, const char *source,
 #endif
 #ifdef HAVE_GFC_REAL_17
     case 17:
-      FORMAT_FLOAT(16,Q)
+      FORMAT_FLOAT(17,Q)
       break;
 #endif
     default: