From: Francois-Xavier Coudert Date: Thu, 21 Nov 2013 08:45:00 +0000 (+0000) Subject: re PR libfortran/59227 (FAIL: gfortran.dg/erf_3.F90 -O0 execution test) X-Git-Tag: releases/gcc-4.9.0~2570 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=933cfd4a3784263179fa0d95b8cc0f83b8d30157;p=thirdparty%2Fgcc.git re PR libfortran/59227 (FAIL: gfortran.dg/erf_3.F90 -O0 execution test) PR libfortran/59227 * intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if __float128 is not available. From-SVN: r205193 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index eeeaa04b3c3c..cf39b3ca9f83 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2013-11-20 Francois-Xavier Coudert + + PR libfortran/59227 + * intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if + __float128 is not available. + 2013-11-20 Francois-Xavier Coudert PR libfortran/49024 diff --git a/libgfortran/intrinsics/erfc_scaled.c b/libgfortran/intrinsics/erfc_scaled.c index 1f8c778eb651..f69e1fc7357d 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 +