diff options
| author | Juoko Orava <jouko.orava@iki.fi> | 2015-12-05 20:12:26 +0200 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-12-05 18:12:26 +0000 |
| commit | 9df47e83ee99de6db182fdca9e3afcf6b8cd4af1 (patch) | |
| tree | 1a2f388e4a470af57aba523d062f073cf6f1536d /libgfortran | |
| parent | e9d9b48ddbb7915c0ae141c1cb949a55d51ed737 (diff) | |
| download | gcc-9df47e83ee99de6db182fdca9e3afcf6b8cd4af1.zip gcc-9df47e83ee99de6db182fdca9e3afcf6b8cd4af1.tar.gz gcc-9df47e83ee99de6db182fdca9e3afcf6b8cd4af1.tar.bz2 | |
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 <jouko.orava@iki.fi>
PR fortran/50201
* io/write_float.def: Avoid marking quadmath_snprintf as an untyped
weak reference, which fixing linking with -static.
From-SVN: r231320
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write_float.def | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 4843fd5..b8c698e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2015-12-05 Juoko Orava <jouko.orava@iki.fi> + + 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 <burnus@net-b.de> Alessandro Fanfarillo <fanfarillo.gcc@gmail.com> diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 183fe0b..bb007ac9 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 |