[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / rename / rn004.hs

diff --git a/ghc/compiler/tests/rename/rn004.hs b/ghc/compiler/tests/rename/rn004.hs
new file mode 100644 (file)
index 0000000..247d04b
--- /dev/null
+++ b/ghc/compiler/tests/rename/rn004.hs
@@ -0,0 +1,9 @@
+module Foo where
+
+--!!! multiple definitions, but hidden in patterns
+
+f x = x
+  where
+    a          = []
+    (b,c,a)    = ([],[],d)
+    [d,b,_]    = ([],a,[])