libraries/base/tests/T16111.hs


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

module Main (main) where

import Data.Bits
import Data.Word

main :: IO ()
main = print $ toInteger (shiftL 1 hm :: Word64)
            == toInteger (shiftL 1 hm :: Word64)

hm :: Int
hm = -1
{-# NOINLINE hm #-}