Prepare library for REAL(KIND=17).

[thirdparty/gcc.git] / libgfortran / kinds-override.h

diff --git a/libgfortran/kinds-override.h b/libgfortran/kinds-override.h
index 74b7b36baf6e13cca0fa23bcdb027c2081a5f5c0..efae0d034a4fcbaf3a923c78b58f882291116f1f 100644 (file)
--- a/libgfortran/kinds-override.h
+++ b/libgfortran/kinds-override.h
@@ -29,3 +29,17 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 # error "Where has __float128 gone?"
 #endif
 
+#if defined(__powerpc64__) \
+    && __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ \
+    && __SIZEOF_LONG_DOUBLE__ == 16 \
+    && defined(GFC_REAL_16_IS_LONG_DOUBLE)
+typedef __float128 GFC_REAL_17;
+typedef _Complex float __attribute__((mode(KC))) GFC_COMPLEX_17;
+#define HAVE_GFC_REAL_17
+#define HAVE_GFC_COMPLEX_17
+#define GFC_REAL_17_HUGE 1.18973149535723176508575932662800702e4932q
+#define GFC_REAL_17_LITERAL_SUFFIX q
+#define GFC_REAL_17_LITERAL(X) (X ## q)
+#define GFC_REAL_17_DIGITS 113
+#define GFC_REAL_17_RADIX 2
+#endif