1 //===-- runtime/Float128Math/sqrt.cpp -------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 #include "math-entries.h" 10 #include "numeric-template-specs.h" 11 12 namespace Fortran::runtime { 13 extern "C" { 14 15 #if HAS_LDBL128 || HAS_FLOAT128 16 F128Type RTDEF(SqrtF128)(F128Type x) { return SQRTTy<F128Type>::compute(x); } 17 #endif 18 19 } // extern "C" 20 } // namespace Fortran::runtime 21