Index: flang/lib/Evaluate/intrinsics-library.cpp
===================================================================
--- flang/lib/Evaluate/intrinsics-library.cpp
+++ flang/lib/Evaluate/intrinsics-library.cpp
@@ -330,12 +330,14 @@
   using F = FuncPointer<long double, long double>;
   using FN = FuncPointer<long double, int, long double>;
   static constexpr HostRuntimeFunction table[]{
+#if !_ARCH_PPC // double-double, not supported; TODO: use HostTypeExists instead
       FolderFactory<F, F{::j0l}>::Create("bessel_j0"),
       FolderFactory<F, F{::j1l}>::Create("bessel_j1"),
       FolderFactory<FN, FN{::jnl}>::Create("bessel_jn"),
       FolderFactory<F, F{::y0l}>::Create("bessel_y0"),
       FolderFactory<F, F{::y1l}>::Create("bessel_y1"),
       FolderFactory<FN, FN{::ynl}>::Create("bessel_yn"),
+#endif // !_ARCH_PPC
   };
   static constexpr HostRuntimeMap map{table};
   static_assert(map.Verify(), "map must be sorted");