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