Commit b3b52eac authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #2838

parent 6a3cb693
{-# LANGUAGE MagicHash, UnboxedTuples #-}
module Main(main,complement) where
import GHC.Base
import GHC.Num
complement (I# x#) = I# (word2Int# (int2Word# (4294967295#) `xor#` int2Word# (-1#)))
main = print (complement (-1))
......@@ -72,3 +72,5 @@ test('cg061', normal, compile_and_run, [''])
test('cg062', normal, compile_and_run, [''])
test('1861', extra_run_opts('0'), compile_and_run, [''])
test('2838', normal, compile_and_run, [''])
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