1d24ff9aeSSlava Zakharin //===-- runtime/Float128Math/fma.cpp --------------------------------------===// 2d24ff9aeSSlava Zakharin // 3d24ff9aeSSlava Zakharin // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4d24ff9aeSSlava Zakharin // See https://llvm.org/LICENSE.txt for license information. 5d24ff9aeSSlava Zakharin // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6d24ff9aeSSlava Zakharin // 7d24ff9aeSSlava Zakharin //===----------------------------------------------------------------------===// 8d24ff9aeSSlava Zakharin 9d24ff9aeSSlava Zakharin #include "math-entries.h" 10d24ff9aeSSlava Zakharin 11d24ff9aeSSlava Zakharin namespace Fortran::runtime { 12d24ff9aeSSlava Zakharin extern "C" { 13d24ff9aeSSlava Zakharin 14*fc51c7f0SSlava Zakharin #if HAS_LDBL128 || HAS_FLOAT128 15d24ff9aeSSlava Zakharin CppTypeFor<TypeCategory::Real, 16> RTDEF(FmaF128)( 16d24ff9aeSSlava Zakharin CppTypeFor<TypeCategory::Real, 16> x, CppTypeFor<TypeCategory::Real, 16> y, 17d24ff9aeSSlava Zakharin CppTypeFor<TypeCategory::Real, 16> z) { 18d24ff9aeSSlava Zakharin return Fma<true>::invoke(x, y, z); 19d24ff9aeSSlava Zakharin } 20d24ff9aeSSlava Zakharin #endif 21d24ff9aeSSlava Zakharin 22d24ff9aeSSlava Zakharin } // extern "C" 23d24ff9aeSSlava Zakharin } // namespace Fortran::runtime 24