Skip to content

GitLab

Commit 83014ab8 authored by Simon Marlow's avatar Simon Marlow
Browse files
Options

add test for #7233

parent f2a0738d
Hide whitespace changes
Inline Side-by-side
Showing with 26 additions and 0 deletions
testsuite/tests/numeric/should_run/T7233.hs 0 → 100644
View file @ 83014ab8
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]]
testsuite/tests/numeric/should_run/T7233.stdout 0 → 100644
View file @ 83014ab8
[-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]
testsuite/tests/numeric/should_run/all.T
View file @ 83014ab8
......@@ -63,3 +63,5 @@ test('T7014',
extra_clean(['T7014.simpl']),
run_command,
['$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