1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_fail/rn_dup.hs b/testsuite/tests/rename/should_fail/rn_dup.hs
new file mode 100644
index 0000000000..927e15ff32
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/rn_dup.hs
@@ -0,0 +1,19 @@
+
+
+-- Test for top-level duplicates
+
+module Dup where
+
+data T = MkT | MkT
+
+data S = MkT
+
+data P = MkP { rf :: Int, rf :: Int }
+data Q = MkQ { rf :: Int }
+
+class C a where
+  data CT a 
+  f :: CT a -> a
+  data CT a
+  f :: CT a -> a
+