diff options
Diffstat (limited to 'testsuite/tests/rts/T21465/T21465.hs')
-rw-r--r-- | testsuite/tests/rts/T21465/T21465.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/rts/T21465/T21465.hs b/testsuite/tests/rts/T21465/T21465.hs index 1465359054..4346f06d9d 100644 --- a/testsuite/tests/rts/T21465/T21465.hs +++ b/testsuite/tests/rts/T21465/T21465.hs @@ -1,10 +1,12 @@ {-# LANGUAGE ForeignFunctionInterface #-} module Main where +import System.IO + foreign import ccall "test_c" testC :: IO () helper :: IO () -helper = putStrLn "This is the helper function" +helper = putStrLn "This is the helper function" >> hFlush stdout foreign export ccall helper :: IO () |