Commit a1b7e866 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

testsuite: Note x87 terribleness in num009

parent 6d774ff2
-- 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment