add a DLL building test (#2745)

testsuite/tests/ghc-regress/driver/Makefile

@@ -463,3 +463,7 @@ mode001:
 	$(TEST_HC) --interactive --version | sed "s/, version.*//"
 	$(TEST_HC) --version --interactive | sed "s/, version.*//"
 
+# Test for building DLLs with ghc -shared, see #2745
+shared001:
+	$(RM) Shared001.hi Shared001.o HSdll.dll.a HSdll.dll Shared001_stub.*
+	$(TEST_HC) -shared Shared001.hs

testsuite/tests/ghc-regress/driver/Shared001.hs

+{-# LANGUAGE ForeignFunctionInterface #-}
+module Shared001 where
+
+-- Test for building DLLs with ghc -shared, see #2745
+
+f :: Int -> Int
+f x = x+1
+
+foreign export ccall f :: Int -> Int

testsuite/tests/ghc-regress/driver/all.T

@@ -204,3 +204,12 @@ test('2499', normal, compile_fail, [''])
 test('mode001', normal, run_command,
      ['$MAKE -s --no-print-directory mode001'])
 
+if config.platform == 'i386-unknown-mingw32':
+     only_windows = normal
+else:
+     only_windows = skip
+
+test('shared001', [ only_windows,
+                    extra_clean(['Shared001.hi', 'Shared001.o', 'HSdll.dll.a', 'HSdll.dll', 'Shared001_stub.c', 'Shared001_stub.h', 'Shared001_stub.o'])
+                 ], run_command,
+     ['$MAKE -s --no-print-directory shared001'])

testsuite/tests/ghc-regress/driver/shared001.stderr

+Creating library file: HSdll.dll.a