diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_run/2838.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/2838.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/2838.hs b/testsuite/tests/codeGen/should_run/2838.hs new file mode 100644 index 0000000000..0933c1203e --- /dev/null +++ b/testsuite/tests/codeGen/should_run/2838.hs @@ -0,0 +1,9 @@ +{-# 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)) |