testsuite/tests/ffi/should_compile/T11983.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE ForeignFunctionInterface #-}
module T11983 where

{-# INCLUDE T11983.h #-}

import Foreign.Ptr

foreign import ccall "intptr_example"
    intPtrExample :: IntPtr -> IO ()
foreign import ccall "uintptr_example"
    wordPtrExample :: WordPtr -> IO ()