Add a test for bug 1533 (currently broken)

testsuite/tests/ghc-regress/ccall/should_compile/all.T

@@ -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, [''])

testsuite/tests/ghc-regress/ccall/should_compile/cc013.hs

+{-# 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
+