1 //===-- runtime/Float128Math/random.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 #include "random-templates.h" 12 13 using namespace Fortran::runtime::random; 14 extern "C" { 15 16 #if HAS_LDBL128 || HAS_FLOAT128 17 void RTDEF(RandomNumber16)( 18 const Descriptor &harvest, const char *source, int line) { 19 return GenerateReal<CppTypeFor<TypeCategory::Real, 16>, 113>(harvest); 20 } 21 #endif 22 23 } // extern "C" 24