summaryrefslogtreecommitdiff
path: root/testsuite/tests/numeric/should_run/T497.hs
blob: 9605b4e121465f7b4f568493918dd4c062c08fd9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
import Data.Word

-- #497: using -O should not make these == 1
main = do
  print $ q * 2 + 1
  print $ q' * 2 + 1

q :: Word32
q = 0x7FFFFFFF

q' :: Word64
q' = 0x7FFFFFFFFFFFFFFF