add test for #1357

3 files changed, 10 insertions, 0 deletions

diff --git a/testsuite/tests/ghc-regress/ffi/should_compile/1357.hs b/testsuite/tests/ghc-regress/ffi/should_compile/1357.hs
new file mode 100644
index 0000000000..1f5479bc1c
--- /dev/null
+++ b/testsuite/tests/ghc-regress/ffi/should_compile/1357.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+module T where
+
+import Foreign
+foreign import ccall "f" f :: FunPtr (Int -> IO ())
diff --git a/testsuite/tests/ghc-regress/ffi/should_compile/1357.stderr b/testsuite/tests/ghc-regress/ffi/should_compile/1357.stderr
new file mode 100644
index 0000000000..e090ad7f91
--- /dev/null
+++ b/testsuite/tests/ghc-regress/ffi/should_compile/1357.stderr
@@ -0,0 +1,3 @@
+
+1357.hs:5:0:
+    Warning: possible missing & in foreign import of FunPtr
diff --git a/testsuite/tests/ghc-regress/ffi/should_compile/all.T b/testsuite/tests/ghc-regress/ffi/should_compile/all.T
index 3bbe4eb506..fc28fa487f 100644
--- a/testsuite/tests/ghc-regress/ffi/should_compile/all.T
+++ b/testsuite/tests/ghc-regress/ffi/should_compile/all.T
@@ -32,3 +32,5 @@ test('cc012', normal, compile, [''])
 test('cc013', normal, compile, [''])
 test('ffi001', normal, compile, [''])
 test('ffi-deriv1', normal, compile, [''])
+
+test('1357', normal, compile, [''])