Commit 9c3bfb1f authored by ian@well-typed.com's avatar ian@well-typed.com

Add a test for #8083

parent aab4cdaa
import Foreign
import Foreign.C
-- import System.IO
main :: IO ()
main = do
-- hSetBuffering stdout NoBuffering
n <- peek pn
-- print n
case n of
1 -> do -- putStrLn "Calling blah"
blah
_ -> return ()
foreign import ccall "&n" pn :: Ptr CInt
foreign import ccall safe blah :: IO ()
#include <stdio.h>
void blah (void) {
printf("In blah\n");
fflush(stdout);
}
int n = 1;
......@@ -220,3 +220,8 @@ test('T4012',
multimod_compile_and_run,
['T4012', ''])
test('T8083',
[extra_clean(['T8083_c.o'])],
compile_and_run,
['T8083_c.c'])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment