From 9df47e83ee99de6db182fdca9e3afcf6b8cd4af1 Mon Sep 17 00:00:00 2001 From: Juoko Orava Date: Sat, 5 Dec 2015 20:12:26 +0200 Subject: [PATCH] re PR fortran/50201 (gfortran with -static causes seg fault at runtime for writing double prec array with precision increased to kind=16) 2015-12-05 Juoko Orava PR fortran/50201 * io/write_float.def: Avoid marking quadmath_snprintf as an untyped weak reference, which fixing linking with -static. From-SVN: r231320 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/write_float.def | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 4843fd50464..b8c698e28bb 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2015-12-05 Juoko Orava + + PR fortran/50201 + * io/write_float.def: Avoid marking quadmath_snprintf as an untyped + weak reference, which fixing linking with -static. + 2015-11-26 Tobias Burnus Alessandro Fanfarillo diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 183fe0b9f2e..bb007ac988d 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -938,7 +938,7 @@ snprintf (buffer, size, "%+-#.*Le", (prec), (val)) #if defined(GFC_REAL_16_IS_FLOAT128) #define DTOA2Q(prec,val) \ -__qmath_(quadmath_snprintf) (buffer, size, "%+-#.*Qe", (prec), (val)) +quadmath_snprintf (buffer, size, "%+-#.*Qe", (prec), (val)) #endif #define FDTOA(suff,prec,val) TOKENPASTE(FDTOA2,suff)(prec,val) @@ -953,7 +953,7 @@ snprintf (buffer, size, "%+-#.*Lf", (prec), (val)) #if defined(GFC_REAL_16_IS_FLOAT128) #define FDTOA2Q(prec,val) \ -__qmath_(quadmath_snprintf) (buffer, size, "%+-#.*Qf", \ +quadmath_snprintf (buffer, size, "%+-#.*Qf", \ (prec), (val)) #endif -- 2.30.2