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
a9f6957d
Commit
a9f6957d
authored
Oct 11, 2007
by
simonpj
Browse files
Test for Trac
#1680
parent
280ed38d
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/ccall/should_fail/all.T
View file @
a9f6957d
...
...
@@ -8,3 +8,4 @@ setTestOpts(f)
test
('
cc005
',
only_compiler_types
(['
ghc
']),
compile_fail
,
[''])
test
('
ccfail001
',
only_compiler_types
(['
ghc
']),
compile_fail
,
[''])
test
('
ccfail002
',
only_compiler_types
(['
ghc
']),
compile_fail
,
[''])
testsuite/tests/ghc-regress/ccall/should_fail/ccfail002.hs
0 → 100644
View file @
a9f6957d
{-# OPTIONS -fglasgow-exts -fffi #-}
-- Test for Trac #1680
module
ShouldFail
where
import
GHC.Exts
foreign
import
ccall
unsafe
"foo"
foo
::
Int
#
->
Int
#
->
Int
#
->
(
#
Int
#
,
Int
#
,
Int
#
#
)
testsuite/tests/ghc-regress/ccall/should_fail/ccfail002.stderr
0 → 100644
View file @
a9f6957d
ccfail002.hs:6:0:
Unacceptable result type in foreign declaration:
(# Int#, Int#, Int# #)
When checking declaration:
foreign import ccall unsafe "static &foo" foo
:: Int# -> Int# -> Int# -> (# Int#, Int#, Int# #)
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