diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-11-20 22:18:55 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-11-20 22:18:55 +0000 |
| commit | 62776fa2f34fc239ad60e5c99ea53271dca2045e (patch) | |
| tree | 9e450558efefb68f1ce323672b0891b1418ada2e /libgfortran/intrinsics/erfc_scaled_inc.c | |
| parent | 637a491d84b1891636d04b2dec4f34c6b72a28ce (diff) | |
| download | gcc-62776fa2f34fc239ad60e5c99ea53271dca2045e.tar.gz | |
PR libfortran/49024
* intrinsics/erfc_scaled.c (erfc_scaled_r16): New function.
* intrinsics/erfc_scaled_inc.c: Do not provide quadruple
precision variant.
* gfortran.dg/erf_3.F90: New file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@205151 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/erfc_scaled_inc.c')
| -rw-r--r-- | libgfortran/intrinsics/erfc_scaled_inc.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libgfortran/intrinsics/erfc_scaled_inc.c b/libgfortran/intrinsics/erfc_scaled_inc.c index 57a6b71f995..107d91a6c9d 100644 --- a/libgfortran/intrinsics/erfc_scaled_inc.c +++ b/libgfortran/intrinsics/erfc_scaled_inc.c @@ -48,11 +48,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see # define TRUNC(x) truncl(x) # endif -#elif (KIND == 16 && defined(GFC_REAL_16_IS_FLOAT128)) - -# define EXP(x) expq(x) -# define TRUNC(x) truncq(x) - #else # error "What exactly is it that you want me to do?" |