From 263ff3e4fd0f7de2408cac298c3d4985777b63bc Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Sat, 31 May 2003 11:19:28 -0500
Subject: [svn-r6940] Purpose:     Code cleanup

Description:
    Call srand(time(NULL)) before performing tests, to better randomize numbers
chosen for testing.

Platforms tested:
    h5committestted (although Fortran tests failed for some reason)
---
 test/dtypes.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/dtypes.c b/test/dtypes.c
index 298a8da..8693422 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -19,6 +19,7 @@
  * Purpose:     Tests the data type interface (H5T)
  */
 
+#include <time.h>
 #include "h5test.h"
 
 /* Number of times to run each test */
@@ -4114,6 +4115,9 @@ main(void)
     unsigned long	nerrors = 0;
     hid_t		fapl=-1;
 
+    /* Set the random # seed */
+    HDsrandom((unsigned long)time(NULL));
+
     reset_hdf5();
     fapl = h5_fileaccess();
 
-- 
cgit v0.12