blob: bcd34e1b4f0e65dc0ba0531205901c6311c328b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE GHCForeignImportPrim #-}
{-# LANGUAGE UnliftedFFITypes #-}
module Main where
import GHC.Int
import GHC.Prim
foreign import prim "test" test :: Int# -> Int#
foreign import prim "test2" test2 :: Int# -> Int#
foreign import prim "test3" test3 :: Int# -> Int#
main = print (I# (test3 (test2 (test 0#))))
|