testsuite/tests/codeGen/should_run/T9013.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE MagicHash, UnboxedTuples #-}

import GHC.Exts
import GHC.Word

big :: Word
big = maxBound

carry :: Word
carry = case big of
  W# w -> case plusWord2# w w of
    (# hi, lo #) -> W# hi

main = print carry