From: Juoko Orava <jouko.orava@iki.fi>
Date: Sat, 5 Dec 2015 18:12:26 +0000 (+0200)
Subject: re PR fortran/50201 (gfortran with -static causes seg fault at runtime for writing... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9df47e83ee99de6db182fdca9e3afcf6b8cd4af1;p=gcc.git

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
---

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 <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 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