testsuite/tests/ghc-regress/ffi/should_run/ffi015.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# OPTIONS_GHC -#include "ffi015_cbits.h" #-}
{-# LANGUAGE ForeignFunctionInterface #-}

import Foreign
import Foreign.C

foreign import ccall "&var" var :: Ptr CInt

main = do
  x <- peek var
  print x