Commit 902c6b3e authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test for bug 1533 (currently broken)

parent 6c69c6b9
......@@ -29,5 +29,6 @@ test('cc009', expect_fail_for(['extcore','optextcore']), compile, [''])
test('cc010', expect_fail_for(['extcore','optextcore']), compile, [''])
test('cc011', normal, compile, [''])
test('cc012', normal, compile, [''])
test('cc013', expect_broken(1533), compile, [''])
test('ffi001', normal, compile, [''])
test('ffi-deriv1', expect_broken(736), compile, [''])
{-# OPTIONS_GHC -fffi #-}
-- !!! test that exporting the same thing multiple times works.
module ShouldCompile where
import Data.Int
foreign export ccall "addByte" (+) :: Int8 -> Int8 -> Int8
foreign export ccall "addInt" (+) :: Int16 -> Int16 -> Int16
foreign export ccall "addLong" (+) :: Int32 -> Int32 -> Int32
foreign export ccall "divByte" div :: Int8 -> Int8 -> Int8
foreign export ccall "divInt" div :: Int16 -> Int16 -> Int16
foreign export ccall "divLong" div :: Int32 -> Int32 -> Int32
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