summaryrefslogtreecommitdiff
path: root/testsuite/tests/numeric/should_run/T15301.hs
blob: 6efbce4334e58e9b1f38bc820c3654ee471fdf1f (plain)
1
2
3
4
5
6
7
import Numeric
import GHC.Natural

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