blob: f8be97cd6e7936bba647b73250494ae328834edc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- | Verify that @foreign import prim@ calls with more than 10 arguments
-- are lowered correctly.
{-# LANGUAGE MagicHash, GHCForeignImportPrim, UnliftedFFITypes #-}
import GHC.Exts
foreign import prim "test" test :: Int# -> Int# -> Int# -> Int# -> Int#
-> Int# -> Int# -> Int# -> Int# -> Int#
-> Int#
foreign import ccall "flush_stdout" flush_stdout :: IO ()
v :: Int
v = I# (test 111# 112# 113# 114# 115# 116# 117# 118# 119# 120#)
main :: IO ()
main = do
n <- return $! v
flush_stdout -- Ensure that libc output buffer is flushed
print n
|
