1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_run/T3983_Bar.hs b/testsuite/tests/simplCore/should_run/T3983_Bar.hs
new file mode 100644
index 0000000000..ee6fe36e86
--- /dev/null
+++ b/testsuite/tests/simplCore/should_run/T3983_Bar.hs
@@ -0,0 +1,15 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+module T3983_Bar where
+import Data.Dynamic
+import Control.Exception
+import Control.Monad (unless)
+
+type Assertion = IO ()
+
+data X = X String deriving (Show, Typeable)
+
+instance Exception X
+
+throwX = throw.X
+
+catchX action = do { action; return True; } `catches` [Handler (\(X _) -> return False)]
+\ No newline at end of file