1 //===-- runtime/Float128Math/modulo-real.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 // MODULO (16.9.136) 17 F128Type RTDEF(ModuloReal16)( 18 F128Type x, F128Type p, const char *sourceFile, int sourceLine) { 19 return RealMod<true>(x, p, sourceFile, sourceLine); 20 } 21 #endif 22 23 } // extern "C" 24 } // namespace Fortran::runtime 25