testsuite/tests/ffi/should_fail/ccfail002.hs


1
2
3
4
5
6
7
8
9
10
11


{-# LANGUAGE ForeignFunctionInterface, UnboxedTuples, MagicHash, UnliftedFFITypes #-}

-- Test for Trac #1680

module ShouldFail where

import GHC.Exts

foreign import ccall unsafe "foo"
        foo :: Int# -> Int# -> Int# -> (# Int# , Int#, Int# #)