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