lfortran_intrinsics.c: Fix random_number()

ubaidsk · ubaidsk · commit 02a3b61074b7 · 2024-01-21T19:42:31.000+05:30
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;
 }
 
