1{-# LANGUAGE MagicHash     #-}
2{-# LANGUAGE UnboxedTuples #-}
3
4module Main where
5
6import GHC.Base
7
8main :: IO ()
9main = do
10  -- Overflow.
11  let (# w1, i1 #) = subWordC# 1## 3##
12  print (W# w1, I# i1)
13
14  -- No overflow.
15  let (# w2, i2 #) = subWordC# 3## 1##
16  print (W# w2, I# i2)
17