id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
3033	numerical error introduced by -O1	roland		"{{{
f x = x * 1000000.1

g y True  = y
g y False = g y True

z = let x = 100000000000.0 in
    f x - g (f x) True

main = putStrLn (show z)
}}}

This program prints ""-2.328125"" when compiled with ""-O1"".
Running {{{main}}} from within ghci gives ""0.0"", as it should.

Occurs under Mac OS and Linux (both x86)."	bug	closed	normal		Compiler	6.10.1	invalid			Unknown/Multiple	Unknown/Multiple		Unknown