Ensure that Literals are in range
[ghc.git] / testsuite / tests / codeGen / should_run / T9533c.hs
1 -- Don't wrap literals that will be used at type Integer
2 f :: Integer -> Int
3 f n = case n of
4 0x100000000000000000000000 -> 1
5 0 -> 2
6 _ -> 3
7
8 main = print (f (read "0"))