Commit 86666c3e authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #2388

parent 06151415
module Q where
import Data.Bits
import Data.Word
import Data.Int
test1 :: Word32 -> Char
test1 w | w .&. 0x80000000 /= 0 = 'a'
test1 _ = 'b'
-- this should use a testq instruction on x86_64
test2 :: Int64 -> Char
test2 w | w .&. (-3) /= 0 = 'a'
test2 _ = 'b'
......@@ -6,3 +6,4 @@ test('cg005', only_ways(['optc','optasm']), compile, [''])
test('cg006', normal, compile, [''])
test('1916', normal, compile, [''])
test('2388', normal, compile, [''])
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