path: root/testsuite/tests/rts/linker/T21556/T21556b.hs

{-# LANGUAGE ForeignFunctionInterface #-}

import Foreign.C.Types

foreign import ccall unsafe "hello" hello :: CInt -> IO ()

main = hello 42