summaryrefslogtreecommitdiff
path: root/testsuite/tests/numeric/should_run/T7233.hs
blob: 5c0cee19983cb45e3375c8ac7e1664647ebf2a30 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
import Data.Int
import Data.Word

main = do
  print [5 `div` (minBound+k::Int)    | k <- [0 .. 10]]
  print [5 `div` (minBound+k::Int8)   | k <- [0 .. 10]]
  print [5 `div` (minBound+k::Int16)  | k <- [0 .. 10]]
  print [5 `div` (minBound+k::Int32)  | k <- [0 .. 10]]
  print [5 `div` (minBound+k::Int64)  | k <- [0 .. 10]]
  print [5 `quot` (minBound+k::Int)    | k <- [0 .. 10]]
  print [5 `quot` (minBound+k::Int8)   | k <- [0 .. 10]]
  print [5 `quot` (minBound+k::Int16)  | k <- [0 .. 10]]
  print [5 `quot` (minBound+k::Int32)  | k <- [0 .. 10]]
  print [5 `quot` (minBound+k::Int64)  | k <- [0 .. 10]]