lfortran_intrinsics.c: Fix random_number()

lcompilers · Jan 21, 2024 · 02a3b61 · 02a3b61
1 parent cac71d1
commit 02a3b61
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/src/libasr/runtime/lfortran_intrinsics.c b/src/libasr/runtime/lfortran_intrinsics.c
@@ -1884,13 +1884,22 @@ LFORTRAN_API double _lfortran_time()
 #endif
 }
 
+bool lfortran_rand_seed = true;
 LFORTRAN_API void _lfortran_sp_rand_num(float *x) {
-    srand(time(0));
+    if (lfortran_rand_seed) {
+        srand((unsigned int)clock());
+        rand();
+        lfortran_rand_seed = false;
+    }
     *x = rand() / (float) RAND_MAX;
 }
 
 LFORTRAN_API void _lfortran_dp_rand_num(double *x) {
-    srand(time(0));
+    if (lfortran_rand_seed) {
+        srand((unsigned int)clock());
+        rand();
+        lfortran_rand_seed = false;
+    }
     *x = rand() / (double) RAND_MAX;
 }