Commit a9f6957d authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test for Trac #1680

parent 280ed38d
......@@ -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, [''])
{-# 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# #)
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# #)
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