testsuite/tests/lib/integer/T19170.hs


1
2
3
4
5
6
7
8
9
10
11

module Main where

import Data.Bits
import GHC.Natural
import GHC.Num.Natural

main :: IO ()
main = do
    print $ (shiftL 0 65 :: Natural)
    print $ naturalCheck (shiftL 0 65 :: Natural)
    print $ shiftL 0 65 == (0 :: Natural)