testsuite/tests/ghc-regress/ffi/should_run/2276_ghci.hs


1
2
3
4
5
6
7

import Foreign
import Foreign.C

foreign import stdcall "&test" ptest :: FunPtr (CInt -> IO ())
foreign import stdcall "dynamic" ctest :: FunPtr (CInt -> IO ()) -> CInt -> IO ()

main = ctest ptest 3