Commit 83014ab8 authored by Simon Marlow's avatar Simon Marlow

add test for #7233

parent f2a0738d
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]]
[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
[-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
[0,0,0,0,0,0,0,0,0,0,0]
[0,0,0,0,0,0,0,0,0,0,0]
[0,0,0,0,0,0,0,0,0,0,0]
[0,0,0,0,0,0,0,0,0,0,0]
[0,0,0,0,0,0,0,0,0,0,0]
...@@ -63,3 +63,5 @@ test('T7014', ...@@ -63,3 +63,5 @@ test('T7014',
extra_clean(['T7014.simpl']), extra_clean(['T7014.simpl']),
run_command, run_command,
['$MAKE -s --no-print-directory T7014']) ['$MAKE -s --no-print-directory T7014'])
test('T7233', normal, compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment