1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/tests/lib/OldException/OldException001.hs b/testsuite/tests/lib/OldException/OldException001.hs
new file mode 100644
index 0000000000..150dc2aba7
--- /dev/null
+++ b/testsuite/tests/lib/OldException/OldException001.hs
@@ -0,0 +1,22 @@
+
+-- trace #2913
+
+{-# LANGUAGE DeriveDataTypeable #-}
+
+import qualified Control.Exception as New
+import qualified Control.OldException as Old
+
+import Data.Typeable
+
+data MyException = MyException
+    deriving (Eq, Show, Typeable)
+
+instance New.Exception MyException
+
+main :: IO ()
+main = (New.throwIO MyException
+            `Old.catch`
+            (\e -> do putStrLn ("Old got " ++ show e)
+                      Old.throw e)
+       ) `New.catch` (\e -> putStrLn ("New got " ++ show (e :: MyException)))
+