[flang-commits] [flang] [llvm] [flang/flang-rt] Adding support of RAND, IRAND and SRAND intrinsics (PR #166780)

[Kelvin Li via flang-commits]

================
@@ -60,6 +62,12 @@ inline void CtimeBuffer(char *buffer, size_t bufsize, const time_t cur_time,
 
 namespace Fortran::runtime {
 
+#define GFC_RAND_A 16807
+#define GFC_RAND_M 2147483647
+#define GFC_RAND_M1 (GFC_RAND_M - 1)
----------------
kkwli wrote:

`GFC_RAND_M1` is not used.

https://github.com/llvm/llvm-project/pull/166780