testsuite/tests/codeGen/should_run/2838.hs


1
2
3
4
5
6
7
8
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))