27 lines · cpp
1//===-- lib/quadmath/trunc.cpp ----------------------------------*- C++ -*-===//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-exception6//7//===----------------------------------------------------------------------===//8//9// Round to integer, toward zero.10//11//===----------------------------------------------------------------------===//12 13#include "math-entries.h"14 15namespace Fortran::runtime {16extern "C" {17 18#if HAS_LDBL128 || HAS_FLOAT12819CppTypeFor<TypeCategory::Real, 16> RTDEF(TruncF128)(20 CppTypeFor<TypeCategory::Real, 16> x) {21 return Trunc<true>::invoke(x);22}23#endif24 25} // extern "C"26} // namespace Fortran::runtime27