summaryrefslogtreecommitdiff
path: root/testsuite/tests/ffi/should_run/ffi015.hs
blob: c70220fa4ab2c3bb00cdc7aa25778c33e65c1ca8 (plain)
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