testsuite/tests/lib/integer/fromToInteger.hs


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


{-# LANGUAGE MagicHash #-}

module Q where

import GHC.Exts
import GHC.Integer

v :: Int
v = I# (integerToInt (smallInteger 3#))

w :: Word
w = W# (integerToWord (wordToInteger 3##))