diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-09-30 23:29:36 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-09-30 23:52:56 +0100 |
| commit | 59694a791c8c0afddc205f7fb37919628350c3b4 (patch) | |
| tree | c60ae19ce23cd82a37c65e8bc11ed83f49c0b67c /testsuite/tests/ffi | |
| parent | c9a0347796780be9dae33826bd94dad278bb489f (diff) | |
| download | haskell-59694a791c8c0afddc205f7fb37919628350c3b4.tar.gz | |
Add a test for types of GHC FFI primitive imports
Diffstat (limited to 'testsuite/tests/ffi')
| -rw-r--r-- | testsuite/tests/ffi/should_compile/all.T | 1 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_compile/cc016.hs | 15 |
2 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/tests/ffi/should_compile/all.T b/testsuite/tests/ffi/should_compile/all.T index 0c97827a7c..f4b4cdd5cb 100644 --- a/testsuite/tests/ffi/should_compile/all.T +++ b/testsuite/tests/ffi/should_compile/all.T @@ -37,3 +37,4 @@ test('1357', normal, compile, ['']) test('3624', normal, compile, ['']) test('3742', normal, compile, ['']) test('cc015', normal, compile, ['']) +test('cc016', normal, compile, ['']) diff --git a/testsuite/tests/ffi/should_compile/cc016.hs b/testsuite/tests/ffi/should_compile/cc016.hs new file mode 100644 index 0000000000..549dc15c77 --- /dev/null +++ b/testsuite/tests/ffi/should_compile/cc016.hs @@ -0,0 +1,15 @@ + +{-# LANGUAGE TypeFamilies, GHCForeignImportPrim, MagicHash, + UnliftedFFITypes #-} + +module Cc015 where + +import Foreign +import Foreign.C.Types +import GHC.Prim + +type family F a +type instance F Int = Int# -> Int# + +foreign import prim "f" f :: F Int + |