path: root/testsuite/tests/ghc-regress/ffi/should_run/ffi018_ghci.hs

import Data.Int

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

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