From ac98fc0d0ad018166724e1e58029cf1950bc8a5d Mon Sep 17 00:00:00 2001
From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 21 Nov 2013 08:45:00 +0000
Subject: 	PR libfortran/59227 	* intrinsics/erfc_scaled.c
 (erfc_scaled_r16): Don't define if 	__float128 is not available.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@205193 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgfortran/intrinsics/erfc_scaled.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'libgfortran/intrinsics')

diff --git a/libgfortran/intrinsics/erfc_scaled.c b/libgfortran/intrinsics/erfc_scaled.c
index 1f8c778eb65..f69e1fc7357 100644
--- a/libgfortran/intrinsics/erfc_scaled.c
+++ b/libgfortran/intrinsics/erfc_scaled.c
@@ -52,14 +52,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #endif
 
 
+#ifdef GFC_REAL_16_IS_FLOAT128
+
 /* For quadruple-precision (__float128), netlib's implementation is
    not accurate enough.  We provide another one.  */
 
-
 extern GFC_REAL_16 erfc_scaled_r16 (GFC_REAL_16);
 export_proto(erfc_scaled_r16);
 
-
 GFC_REAL_16
 erfc_scaled_r16 (GFC_REAL_16 x)
 {
@@ -101,3 +101,5 @@ erfc_scaled_r16 (GFC_REAL_16 x)
     }
 }
 
+#endif
+
-- 
cgit v1.2.1