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