blob: 2565c3f002fec0aee11cb995a927e50ca7b6be1b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE MagicHash, GHCForeignImportPrim, UnliftedFFITypes #-}
import GHC.Exts
foreign import prim "test" test :: Int# -> Int# -> Int# -> Int# -> Int#
-> Int# -> Int# -> Int# -> Int# -> Int#
-> Int#
v :: Int
v = I# (test 111# 112# 113# 114# 115# 116# 117# 118# 119# 120#)
main :: IO ()
main = print v
|
