1 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/T1972.hs b/testsuite/tests/rename/should_compile/T1972.hs
new file mode 100644
index 0000000000..09dd8acaf4
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T1972.hs
@@ -0,0 +1,20 @@
+{-# OPTIONS_GHC -fwarn-name-shadowing -fwarn-unused-binds #-}
+
+-- Trac #1972
+
+module Temp where
+
+import Data.List
+
+data Data = Data {name :: String}
+
+h :: a -> a
+h name = name
+
+f mapAccumL x = x
+
+mapAccumL y = y
+
+test x = a+b 
+  where
+    (a,b,c) = x
+\ No newline at end of file