Implement unboxed sum primitive type
[ghc.git] / testsuite / tests / unboxedsums / ffi1.hs
1 {-# LANGUAGE UnboxedSums, UnboxedTuples, MagicHash #-}
2
3 module Lib where
4
5 import GHC.Prim
6
7 -- Can't unboxed tuples and sums to FFI, we should fail appropriately.
8
9 foreign import ccall "f1" f1 :: (# Int | Int #) -> IO Int
10 foreign import ccall "f2" f2 :: (# (# Int, Int #) | (# Float#, Float# #) #) -> IO Int
11 foreign import ccall "f3" f3 :: (# (# #) | Void# | (# Int# | String #) #) -> IO Int