1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_compile/tc046.hs b/testsuite/tests/typecheck/should_compile/tc046.hs
new file mode 100644
index 0000000000..c1ae30c96c
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/tc046.hs
@@ -0,0 +1,9 @@
+module ShouldSucceed where
+
+class C a where
+ op1 :: a -> a
+
+class (C a) => B a where
+ op2 :: a -> a -> a
+
+{- Failed hard in new tc with "No match in theta_class" -}