Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
902c6b3e
Commit
902c6b3e
authored
Jul 13, 2007
by
Ian Lynagh
Browse files
Add a test for bug 1533 (currently broken)
parent
6c69c6b9
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/ccall/should_compile/all.T
View file @
902c6b3e
...
...
@@ -29,5 +29,6 @@ test('cc009', expect_fail_for(['extcore','optextcore']), compile, [''])
test
('
cc010
',
expect_fail_for
(['
extcore
','
optextcore
']),
compile
,
[''])
test
('
cc011
',
normal
,
compile
,
[''])
test
('
cc012
',
normal
,
compile
,
[''])
test
('
cc013
',
expect_broken
(
1533
),
compile
,
[''])
test
('
ffi001
',
normal
,
compile
,
[''])
test
('
ffi-deriv1
',
expect_broken
(
736
),
compile
,
[''])
testsuite/tests/ghc-regress/ccall/should_compile/cc013.hs
0 → 100644
View file @
902c6b3e
{-# OPTIONS_GHC -fffi #-}
-- !!! test that exporting the same thing multiple times works.
module
ShouldCompile
where
import
Data.Int
foreign
export
ccall
"addByte"
(
+
)
::
Int8
->
Int8
->
Int8
foreign
export
ccall
"addInt"
(
+
)
::
Int16
->
Int16
->
Int16
foreign
export
ccall
"addLong"
(
+
)
::
Int32
->
Int32
->
Int32
foreign
export
ccall
"divByte"
div
::
Int8
->
Int8
->
Int8
foreign
export
ccall
"divInt"
div
::
Int16
->
Int16
->
Int16
foreign
export
ccall
"divLong"
div
::
Int32
->
Int32
->
Int32
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