diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-11-21 08:45:00 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-11-21 08:45:00 +0000 |
| commit | ac98fc0d0ad018166724e1e58029cf1950bc8a5d (patch) | |
| tree | 6e5706a5ce36993475dda9568ae93d3b20a787f4 /libgfortran/intrinsics | |
| parent | 01271b868720bf4efbb2b85d7f8944424dfd345d (diff) | |
| download | ppe42-gcc-ac98fc0d0ad018166724e1e58029cf1950bc8a5d.tar.gz ppe42-gcc-ac98fc0d0ad018166724e1e58029cf1950bc8a5d.zip | |
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
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/erfc_scaled.c | 6 |
1 files changed, 4 insertions, 2 deletions
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 + |
