Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
83014ab8
Commit
83014ab8
authored
Oct 24, 2012
by
Simon Marlow
Browse files
add test for
#7233
parent
f2a0738d
Changes
3
Hide whitespace changes
Inline
Side-by-side
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
,
[''])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment