diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-10 15:11:37 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-10 15:11:37 +0100 |
| commit | 2d47ca445e1be059a9d9882bbccafa3bb415524e (patch) | |
| tree | 41e036fb16f6a6b633d96784d86e90161b186c29 /testsuite/tests | |
| parent | 5372ff5d5570c82bb9e987177d530b8886887cad (diff) | |
| download | haskell-2d47ca445e1be059a9d9882bbccafa3bb415524e.tar.gz | |
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).
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/numeric/should_run/numrun012.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/numeric/should_run/numrun012.stdout | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/numeric/should_run/numrun012.hs b/testsuite/tests/numeric/should_run/numrun012.hs index df8c69040c..18cef65e2f 100644 --- a/testsuite/tests/numeric/should_run/numrun012.hs +++ b/testsuite/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/testsuite/tests/numeric/should_run/numrun012.stdout b/testsuite/tests/numeric/should_run/numrun012.stdout index f94829ccfd..b1bab9d975 100644 --- a/testsuite/tests/numeric/should_run/numrun012.stdout +++ b/testsuite/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 |