diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-03-24 13:22:08 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-26 18:09:52 -0400 |
| commit | a1b7e866378e848d50b940595aa43fa63672cf37 (patch) | |
| tree | 53c36a8ff0edda9c80f6e7d1ff08491d7ec71242 /libraries | |
| parent | 6d774ff2fde787d2032bbcefcb3afd2262b3916e (diff) | |
| download | haskell-a1b7e866378e848d50b940595aa43fa63672cf37.tar.gz | |
testsuite: Note x87 terribleness in num009
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/tests/Numeric/num009.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libraries/base/tests/Numeric/num009.hs b/libraries/base/tests/Numeric/num009.hs index 429f0bf3c2..c0dec435cb 100644 --- a/libraries/base/tests/Numeric/num009.hs +++ b/libraries/base/tests/Numeric/num009.hs @@ -1,4 +1,8 @@ -- trac #2059 +-- +-- Note that this test fails miserably when compiled to use X87 floating point. +-- For instance, in the case of (sin 1e20) the X86 FSIN instruction doesn't even +-- get the sign right on my machine. module Main(main) where @@ -20,7 +24,7 @@ test :: (RealFloat a, Floating a, RealFloat b, Floating b, Show b) test s f g x = do let y = realToFrac (f (realToFrac x)) z = g x unless (y == z) $ do - putStrLn (s ++ ' ':show x) + putStrLn ("uh oh! " ++ s ++ ' ':show x) print y print z print $ decodeFloat y |