0b99bd36a4768929f93943f1d04e78e6180c981c
[ghc.git] / testsuite / tests / codeGen / should_run / T12059.hs
1 {-# LANGUAGE MagicHash #-}
2 {-# LANGUAGE UnboxedTuples #-}
3
4 -- Test the function of the isPinnedByteArray# primop
5
6 import GHC.Exts
7 import GHC.IO
8
9 main :: IO ()
10 main = do
11 r <- IO $ \s0 ->
12 case newByteArray# 1024# s0 of
13 (# s1, mba #) ->
14 (# s1, isTrue# (isPinnedByteArray# mba) #)
15 print r
16
17 r <- IO $ \s0 ->
18 case newPinnedByteArray# 1024# s0 of
19 (# s1, mba #) ->
20 (# s1, isTrue# (isPinnedByteArray# mba) #)
21 print r
22
23 r <- IO $ \s0 ->
24 case newAlignedPinnedByteArray# 1024# 16# s0 of
25 (# s1, mba #) ->
26 (# s1, isTrue# (isPinnedByteArray# mba) #)
27 print r