From 414f4bd7e70d94025576d9264c86da63c506f6ca Mon Sep 17 00:00:00 2001
From: rpj <rpj>
Date: Wed, 13 Aug 2003 15:10:53 +0000
Subject: Bug fixes plus adaptation to current MinGW/MsysDTK environment.
 Changes to tests/benchmarks.

---
 tests/eyal1.c | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'tests/eyal1.c')

diff --git a/tests/eyal1.c b/tests/eyal1.c
index 72a127f..2890207 100644
--- a/tests/eyal1.c
+++ b/tests/eyal1.c
@@ -124,15 +124,21 @@ static double
 waste_time (int n)
 {
   int		i;
-  double		f;
+  double	f, g, h, s;
 
-  f = rand ();
+  s = 0;
 
+  /*
+   * Useless work.
+   */
   for (i = n*100; i > 0; --i)
     {
-      f = 2 * f * f / (f * f);
+      f = rand ();
+      g = rand ();
+      h = rand ();
+      s += 2 * f * g / (h != 0 ? (h * h) : 1);
     }
-  return f;
+  return s;
 }
 
 static int
-- 
cgit v1.2.3