blob: b73fd5a6854d2f65c216978539545f444005dbb1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- exposes a bug in the native code generator in GHC 6.4.1. Division by
-- a power of 2 was being mis-optimsed to a direct shift.
main = do
print (map f4 [(-20) .. (-1)])
print (map f8 [(-20) .. (-1)])
f4 :: Int -> Int
f4 x = x `quot` 4
f8 :: Int -> Int
f8 x = x `quot` 8
|