1 //===-- runtime/Float128Math/fraction.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 // FRACTION (16.9.80) 17 F128Type RTDEF(Fraction16)(F128Type x) { return Fraction(x); } 18 #endif 19 20 } // extern "C" 21 } // namespace Fortran::runtime 22