ghc/tests/numeric/should_run/arith007.hs

   1 -- !!! test simple Integer things
   2 --
   3
   4 f x y z = x y z
   5
   6 main = do
   7   putStr (shows integer_list "\n")
   8  where
   9     int_list :: [Int]
  10     integer_list :: [Integer]
  11
  12     int_list = (map fromInteger integer_list)
  13
  14     integer_list = (map (* 2)
  15         [1,3,5,7,9,
  16          11111111111111111111111111111,
  17          2222222222222222222222222222222222222,
  18          3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333,
  19          -11111111111111111111111111111,
  20          -2222222222222222222222222222222222222,
  21          -3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
  22         ])
  23