Follow changes in comparison primops (see #6135)
[ghc.git] / testsuite / tests / ffi / should_fail / ccfail003.hs
1 {-# LANGUAGE UnliftedFFITypes, MagicHash #-}
2 -- !!! illegal types in foreign export delarations
3 module ShouldFail where
4
5 import GHC.Exts
6
7 foreign export ccall foo :: Int# -> IO ()
8 foo i | isTrue# (i ==# 0#) = return ()
9
10 foreign export ccall bar :: Int -> Int#
11 bar _ = 42#