1 //===-- runtime/Float128Math/set-exponent.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 // SET_EXPONENT (16.9.171) 17 F128Type RTDEF(SetExponent16)(F128Type x, std::int64_t p) { 18 return SetExponent(x, p); 19 } 20 #endif 21 22 } // extern "C" 23 } // namespace Fortran::runtime 24