1 2 3 4 5
module ShouldCompile where import Foreign foreign import ccall "dynamic" imp :: Ptr () -> Int f1 a = imp a + 1 f2 a = imp a + 2