diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2013-11-21 08:45:00 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2013-11-21 08:45:00 +0000 |
| commit | 933cfd4a3784263179fa0d95b8cc0f83b8d30157 (patch) | |
| tree | 6e5706a5ce36993475dda9568ae93d3b20a787f4 /libgfortran | |
| parent | 408e3c1e55cfb99d07ad165002158d8692d22cf5 (diff) | |
| download | gcc-933cfd4a3784263179fa0d95b8cc0f83b8d30157.zip gcc-933cfd4a3784263179fa0d95b8cc0f83b8d30157.tar.gz gcc-933cfd4a3784263179fa0d95b8cc0f83b8d30157.tar.bz2 | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/erfc_scaled.c | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index eeeaa04..cf39b3c 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,11 @@ 2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + PR libfortran/59227 + * intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if + __float128 is not available. + +2013-11-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + PR libfortran/49024 * intrinsics/erfc_scaled.c (erfc_scaled_r16): New function. * intrinsics/erfc_scaled_inc.c: Do not provide quadruple diff --git a/libgfortran/intrinsics/erfc_scaled.c b/libgfortran/intrinsics/erfc_scaled.c index 1f8c778..f69e1fc 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 + |