Commit 3614bf72 authored by simonmar's avatar simonmar

[project @ 2005-04-25 11:57:30 by simonmar]

add foreign import '&' test
parent db49a81e
......@@ -70,3 +70,5 @@ test('ffi012', f, compile_and_run, [''])
test('ffi013', expect_fail_for(['extcore','optextcore']), compile_and_run, [''])
test('ffi014', only_ways(['threaded']), compile_and_run, ['ffi014_cbits.c'])
test('ffi015', normal, compile_and_run, ['ffi015_cbits.c'])
{-# OPTIONS_GHC -fffi -#include "ffi015_cbits.h" #-}
import Foreign
import Foreign.C
foreign import ccall "&var" var :: Ptr CInt
main = do
x <- peek var
print x
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment