[commit: testsuite] ghc-7.4: Make numrun012 work with excess-precision.(#5856) (f7f18ef)
Paolo Capriotti
p.capriotti at gmail.com
Fri Aug 10 13:07:35 CEST 2012
Repository : ssh://darcs.haskell.org//srv/darcs/testsuite
On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/f7f18efa063acc0dec1a0bfd708e917c8a8d6c08
>---------------------------------------------------------------
commit f7f18efa063acc0dec1a0bfd708e917c8a8d6c08
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date: Tue Jul 10 15:11:37 2012 +0100
Make numrun012 work with excess-precision.(#5856)
Remove exact base 2 logarithms, since their values depend on whether
excess precision is used or not (see also #5165).
MERGED from commits 5774835f02acf3ef8b587cec737bc4d66bb04026 and
19fc8e321193578a1409e837d907fb90555b342c.
>---------------------------------------------------------------
tests/numeric/should_run/numrun012.hs | 4 ++--
tests/numeric/should_run/numrun012.stdout | 2 +-
tests/numeric/should_run/numrun012.stdout-ws-64 | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/tests/numeric/should_run/numrun012.hs b/tests/numeric/should_run/numrun012.hs
index df8c690..18cef65 100644
--- a/tests/numeric/should_run/numrun012.hs
+++ b/tests/numeric/should_run/numrun012.hs
@@ -30,6 +30,6 @@ log2 x = ceiling log_x
log_x = logBase 2 (fromIntegral (max 1 x))
vals = [1, 2, 17, 259, 1000, 10000,
- 2^30 + 9000, 2^31 - 1, 2^31, 2^31 + 1,
- 2^32 - 1, 2^32, 2^32 + 1]
+ 2^30 + 9000, 2^31 - 1, 2^31 + 1,
+ 2^32 - 1, 2^32 + 1]
diff --git a/tests/numeric/should_run/numrun012.stdout b/tests/numeric/should_run/numrun012.stdout
index f94829c..b1bab9d 100644
--- a/tests/numeric/should_run/numrun012.stdout
+++ b/tests/numeric/should_run/numrun012.stdout
@@ -1,4 +1,4 @@
-[0,1,5,9,10,14,31,31,32,32,32,32,33]
+[0,1,5,9,10,14,31,31,32,32,33]
-2.147483648e9
-2.1474836e9
-2.147483648e9
diff --git a/tests/numeric/should_run/numrun012.stdout-ws-64 b/tests/numeric/should_run/numrun012.stdout-ws-64
index ffd0389..6d7756b 100644
--- a/tests/numeric/should_run/numrun012.stdout-ws-64
+++ b/tests/numeric/should_run/numrun012.stdout-ws-64
@@ -1,4 +1,4 @@
-[0,1,5,9,10,14,31,31,32,32,32,32,33]
+[0,1,5,9,10,14,31,31,32,32,33]
2.147483648e9
8589934592
2.1474836e9
More information about the Cvs-ghc
mailing list