path: root/testsuite/tests/ffi/should_run/ffi018.hs

import Data.Int

main :: IO ()
main = do x <- f
          print (x == 0x123456789ABCDEF0)

foreign import ccall "ffi018.h f"
    f :: IO Int64