X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Frename%2Frn018.hs;fp=ghc%2Fcompiler%2Ftests%2Frename%2Frn018.hs;h=0c78946c179ce056726d4cc5e18cdac416711ba0;hb=2503f0e861c727bbee0abb37af69981bd02f973d;hp=0000000000000000000000000000000000000000;hpb=8ecbfdb22c730ec76bee66202d36d4e6800c78f1;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/rename/rn018.hs b/ghc/compiler/tests/rename/rn018.hs
new file mode 100644
index 0000000..0c78946
--- /dev/null
+++ b/ghc/compiler/tests/rename/rn018.hs
@@ -0,0 +1,9 @@
+--!!! Conflicting constructors from two data type decls
+
+module Foo where
+
+data T1 = MkT Int
+
+data T2 = MkT Bool
+
+f (MkT x) = x