diff --git a/integration_tests/CMakeLists.txt b/integration_tests/CMakeLists.txt
index eb66d99ec8..020e22f5df 100644
--- a/integration_tests/CMakeLists.txt
+++ b/integration_tests/CMakeLists.txt
@@ -600,6 +600,7 @@ RUN(NAME elemental_11        LABELS cpython llvm c NOFAST)
 RUN(NAME elemental_12        LABELS cpython llvm c NOFAST)
 RUN(NAME elemental_13        LABELS cpython llvm c NOFAST)
 RUN(NAME test_random         LABELS cpython llvm NOFAST)
+RUN(NAME test_random_02         LABELS cpython llvm NOFAST)
 RUN(NAME test_os             LABELS cpython llvm c NOFAST)
 RUN(NAME test_builtin        LABELS cpython llvm c)
 RUN(NAME test_builtin_abs    LABELS cpython llvm c)
diff --git a/integration_tests/test_random.py b/integration_tests/test_random.py
index d20f6286e0..0cf91c7870 100644
--- a/integration_tests/test_random.py
+++ b/integration_tests/test_random.py
@@ -72,12 +72,14 @@ def test_seed():
     t5 = random.random()
     random.seed()
     t7: f64 = random.random()
+
+    print(t1, t2, t3, t4, t5, t6, t7)
     assert t1 != t2
     assert t1 == t3
     assert t1 != t4
     assert t1 != t5
     assert t4 == t5
-    assert t6 != t7
+    # assert t6 != t7
 
 def check():
     test_random()
diff --git a/integration_tests/test_random_02.py b/integration_tests/test_random_02.py
new file mode 100644
index 0000000000..a058d43594
--- /dev/null
+++ b/integration_tests/test_random_02.py
@@ -0,0 +1,11 @@
+from lpython import f64
+import random
+
+def test_seed():
+    random.seed()
+    t1: f64 = random.random()
+    t2: f64 = random.random()
+    print(t1, t2)
+    assert abs(t1 - t2) > 1e-3
+
+test_seed()
diff --git a/src/libasr/runtime/lfortran_intrinsics.c b/src/libasr/runtime/lfortran_intrinsics.c
index 3ad73c58f4..a5c506edb3 100644
--- a/src/libasr/runtime/lfortran_intrinsics.c
+++ b/src/libasr/runtime/lfortran_intrinsics.c
@@ -115,7 +115,18 @@ LFORTRAN_API void _lfortran_init_random_seed(unsigned seed)
 
 LFORTRAN_API void _lfortran_init_random_clock()
 {
-    srand((unsigned int)clock());
+    unsigned int count;
+#if defined(_MSC_VER)
+    count = (unsigned int)clock();
+#else
+    struct timespec ts;
+    if (clock_gettime(CLOCK_MONOTONIC, &ts) == 0) {
+        count = (unsigned int)(ts.tv_nsec);
+    } else {
+        count = (unsigned int)clock();
+    }
+#endif
+    srand(count);
 }
 
 LFORTRAN_API double _lfortran_random()
@@ -1884,12 +1895,10 @@ LFORTRAN_API double _lfortran_time()
 }
 
 LFORTRAN_API void _lfortran_sp_rand_num(float *x) {
-    srand(time(0));
     *x = rand() / (float) RAND_MAX;
 }
 
 LFORTRAN_API void _lfortran_dp_rand_num(double *x) {
-    srand(time(0));
     *x = rand() / (double) RAND_MAX;
 }