Batch merge
[ghc.git] / testsuite / tests / ghci / linking / T15729.hs
1 module T15729 (main) where
2
3 import Foreign
4 import Foreign.C
5
6 foreign import ccall unsafe "readBss"
7 readBss :: Int -> IO Int
8
9 main :: IO ()
10 main = do
11 prefix <- mapM readBss [0 .. 10]
12 print prefix
13 samples <- mapM readBss [0, 19 .. bit 20 - 1]
14 print $ foldr1 (.|.) samples