testsuite/tests/numeric/should_run/T15301.hs


1
2
3
4
5
6
7

import Numeric
import GHC.Num.Natural

main = do
   -- test that GHC correctly compiles big Natural literals
   let x = 0xffffffffffffffffffffffff :: Natural
   print (showHex x "" == "ffffffffffffffffffffffff")