diff options
Diffstat (limited to 'libgfortran/kinds-override.h')
| -rw-r--r-- | libgfortran/kinds-override.h | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/libgfortran/kinds-override.h b/libgfortran/kinds-override.h index d1456c2..3762ee2 100644 --- a/libgfortran/kinds-override.h +++ b/libgfortran/kinds-override.h @@ -26,18 +26,26 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see /* Ensure that TFmode is available under. */ #if defined(GFC_REAL_16_IS_FLOAT128) && !defined(HAVE_FLOAT128) -# error "Where has __float128 gone?" +# error "Where has _Float128 gone?" #endif /* Keep these conditions on one line so grep can filter it out. */ #if defined(__powerpc64__) && __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ && __SIZEOF_LONG_DOUBLE__ == 16 -typedef __float128 GFC_REAL_17; -typedef _Complex float __attribute__((mode(KC))) GFC_COMPLEX_17; +typedef _Float128 GFC_REAL_17; +typedef _Complex _Float128 GFC_COMPLEX_17; #define HAVE_GFC_REAL_17 #define HAVE_GFC_COMPLEX_17 +#define GFC_REAL_17_IS_FLOAT128 +#ifdef USE_IEC_60559 +#define GFC_REAL_17_USE_IEC_60559 +#define GFC_REAL_17_HUGE 1.18973149535723176508575932662800702e4932f128 +#define GFC_REAL_17_LITERAL_SUFFIX f128 +#define GFC_REAL_17_LITERAL(X) (X ## f128) +#else #define GFC_REAL_17_HUGE 1.18973149535723176508575932662800702e4932q #define GFC_REAL_17_LITERAL_SUFFIX q #define GFC_REAL_17_LITERAL(X) (X ## q) +#endif #define GFC_REAL_17_DIGITS 113 #define GFC_REAL_17_RADIX 2 #endif |