diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2022-01-04 21:32:05 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2022-01-11 23:49:50 +0100 |
| commit | 5db042b2b8484e28d1bf8726fa9ef69b8495ddac (patch) | |
| tree | 3e0f48801e5a46fe4c04a04daabaea89edda220e /libgfortran/libgfortran.h | |
| parent | 06a74228ce589dc24b37341d22a6933cdccdb6bd (diff) | |
| download | gcc-5db042b2b8484e28d1bf8726fa9ef69b8495ddac.zip gcc-5db042b2b8484e28d1bf8726fa9ef69b8495ddac.tar.gz gcc-5db042b2b8484e28d1bf8726fa9ef69b8495ddac.tar.bz2 | |
fortran, libgfortran: Add remaining missing *_r17 symbols
Following patch adds remaining missing *_r17 entrypoints, so that
we have 91 *_r16 and 91 *_r17 entrypoints (and 24 *_c16 and 24 *_c17).
This fixes:
FAIL: gfortran.dg/dec_math.f90 -O0 execution test
FAIL: gfortran.dg/dec_math.f90 -O1 execution test
FAIL: gfortran.dg/dec_math.f90 -O2 execution test
FAIL: gfortran.dg/dec_math.f90 -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions execution test
FAIL: gfortran.dg/dec_math.f90 -O3 -g execution test
FAIL: gfortran.dg/dec_math.f90 -Os execution test
FAIL: gfortran.dg/ieee/dec_math_1.f90 -O0 execution test
FAIL: gfortran.dg/ieee/dec_math_1.f90 -O1 execution test
FAIL: gfortran.dg/ieee/dec_math_1.f90 -O2 execution test
FAIL: gfortran.dg/ieee/dec_math_1.f90 -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions execution test
FAIL: gfortran.dg/ieee/dec_math_1.f90 -O3 -g execution test
FAIL: gfortran.dg/ieee/dec_math_1.f90 -Os execution test
2022-01-04 Jakub Jelinek <jakub@redhat.com>
gcc/fortran/
* trans-intrinsic.c (gfc_get_intrinsic_lib_fndecl): Use
gfc_type_abi_kind.
libgfortran/
* libgfortran.h (GFC_REAL_17_INFINITY, GFC_REAL_17_QUIET_NAN): Define.
(__erfcieee128): Declare.
* intrinsics/trigd.c (_gfortran_sind_r17, _gfortran_cosd_r17,
_gfortran_tand_r17): Define for HAVE_GFC_REAL_17.
* intrinsics/random.c (random_r17, arandom_r17, rnumber_17): Define.
* intrinsics/erfc_scaled.c (ERFC_SCALED): Define.
(erfc_scaled_r16): Use ERFC_SCALED macro.
(erfc_scaled_r17): Define.
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index f4fd8ae..dc7a5f1 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -324,6 +324,9 @@ typedef GFC_UINTEGER_4 gfc_char4_t; # define GFC_REAL_16_INFINITY __builtin_infq () # endif # endif +# ifdef HAVE_GFC_REAL_17 +# define GFC_REAL_17_INFINITY __builtin_inff128 () +# endif #endif #if __FLT_HAS_QUIET_NAN__ # define GFC_REAL_4_QUIET_NAN __builtin_nanf ("") @@ -342,6 +345,9 @@ typedef GFC_UINTEGER_4 gfc_char4_t; # define GFC_REAL_16_QUIET_NAN nanq ("") # endif # endif +# ifdef HAVE_GFC_REAL_17 +# define GFC_REAL_17_QUIET_NAN __builtin_nanf128 ("") +# endif #endif typedef struct descriptor_dimension @@ -1966,6 +1972,8 @@ extern __float128 __coshieee128 (__float128) __attribute__ ((__nothrow__, __leaf__)); extern __float128 __cosieee128 (__float128) __attribute__ ((__nothrow__, __leaf__)); +extern __float128 __erfcieee128 (__float128) + __attribute__ ((__nothrow__, __leaf__)); extern __float128 __erfieee128 (__float128) __attribute__ ((__nothrow__, __leaf__)); extern __float128 __expieee128 (__float128) |