1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/rn064.hs b/testsuite/tests/rename/should_compile/rn064.hs
new file mode 100644
index 0000000000..658d87b348
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/rn064.hs
@@ -0,0 +1,17 @@
+
+{-# OPTIONS_GHC -Wall #-}
+
+module Foo where
+
+-- We should complain that the first r shadows the second one, and give
+-- the right locations for the two of them. (trac #2137)
+
+z :: a
+z = r
+    where
+        _a = 'a'
+        _f r = r
+        _b = 'b'
+        r = undefined
+        _c = 'c'
+