Commit 2f0432d9 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #3742

parent 6b0b1988
module ShouldCompile where
import Foreign
import Foreign.C
-- extra space before the function name:
foreign import ccall unsafe " g_get_application_name"
g_get_application_name :: (IO (Ptr CChar))
-- and after:
foreign import ccall unsafe "g_get_application_name "
g_get_application_name' :: (IO (Ptr CChar))
......@@ -35,3 +35,4 @@ test('ffi-deriv1', normal, compile, [''])
test('1357', normal, compile, [''])
test('3624', normal, compile, [''])
test('3742', normal, compile, [''])
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