mirror of
https://github.com/capstone-engine/llvm-capstone.git
synced 2025-03-01 14:58:18 +00:00
e11140451b
Add APIs, initial non-coarray implementations, and unit tests for the intrinsic subroutines for pseudo-random number generation. Differential Revision: https://reviews.llvm.org/D100064
31 lines
1.1 KiB
C++
31 lines
1.1 KiB
C++
//===-- runtime/random.h --------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// Intrinsic subroutines RANDOM_INIT, RANDOM_NUMBER, and RANDOM_SEED.
|
|
|
|
#include "entry-names.h"
|
|
#include <cstdint>
|
|
|
|
namespace Fortran::runtime {
|
|
class Descriptor;
|
|
extern "C" {
|
|
|
|
void RTNAME(RandomInit)(bool repeatable, bool image_distinct);
|
|
|
|
void RTNAME(RandomNumber)(
|
|
const Descriptor &harvest, const char *source, int line);
|
|
|
|
// Subroutine RANDOM_SEED can be called with at most one of its optional
|
|
// arguments; they each (plus the default case) map to these entry points.
|
|
void RTNAME(RandomSeedSize)(const Descriptor &, const char *source, int line);
|
|
void RTNAME(RandomSeedPut)(const Descriptor &, const char *source, int line);
|
|
void RTNAME(RandomSeedGet)(const Descriptor &, const char *source, int line);
|
|
void RTNAME(RandomSeedDefaultPut)();
|
|
} // extern "C"
|
|
} // namespace Fortran::runtime
|