Commit 6ccd6583 authored by Simon Marlow's avatar Simon Marlow

add test for #4895

parent 3b5c38fc
module Main where
import Foreign.Marshal.Alloc
import System.IO
main = do
h <- openBinaryFile "4895.hs" ReadMode
allocaBytes 10 $ \ptr -> hGetBuf h ptr 10
some <- allocaBytes 10 $ \ptr -> hGetBufSome h ptr 10
print some
......@@ -160,3 +160,4 @@ test('T4144', normal, compile_and_run, [''])
test('encodingerror001', normal, compile_and_run, [''])
test('4808', exit_code(1), compile_and_run, [''])
test('4895', normal, compile_and_run, [''])
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