1e0738cc6SSlava Zakharin //===-- runtime/Float128Math/random.cpp -----------------------------------===// 2e0738cc6SSlava Zakharin // 3e0738cc6SSlava Zakharin // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4e0738cc6SSlava Zakharin // See https://llvm.org/LICENSE.txt for license information. 5e0738cc6SSlava Zakharin // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6e0738cc6SSlava Zakharin // 7e0738cc6SSlava Zakharin //===----------------------------------------------------------------------===// 8e0738cc6SSlava Zakharin 9e0738cc6SSlava Zakharin #include "math-entries.h" 10e0738cc6SSlava Zakharin #include "numeric-template-specs.h" 11e0738cc6SSlava Zakharin #include "random-templates.h" 12e0738cc6SSlava Zakharin 13e0738cc6SSlava Zakharin using namespace Fortran::runtime::random; 14e0738cc6SSlava Zakharin extern "C" { 15e0738cc6SSlava Zakharin 16fc51c7f0SSlava Zakharin #if HAS_LDBL128 || HAS_FLOAT128 17e0738cc6SSlava Zakharin void RTDEF(RandomNumber16)( 18e0738cc6SSlava Zakharin const Descriptor &harvest, const char *source, int line) { 19*fc97d2e6SPeter Klausler return GenerateReal<CppTypeFor<TypeCategory::Real, 16>, 113>(harvest); 20e0738cc6SSlava Zakharin } 21e0738cc6SSlava Zakharin #endif 22e0738cc6SSlava Zakharin 23e0738cc6SSlava Zakharin } // extern "C" 24