1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/T3262.hs b/testsuite/tests/rename/should_compile/T3262.hs
new file mode 100644
index 0000000000..01437d8d2f
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T3262.hs
@@ -0,0 +1,21 @@
+{-# OPTIONS -fwarn-name-shadowing #-}
+
+-- Trac #3262: report shadowing in g but not f
+ 
+module T3262 where
+
+f x = let _ignored = 10 in
+      let _ignored = 20 in
+      x + _ignored
+
+g x = let not_ignored = 10 in
+      let not_ignored = 20 in
+      x + not_ignored
+
+mf x = do let _ignored = 10
+          let _ignored = 20
+          return (x + _ignored)
+
+mg x = do let not_ignored = 10
+          let not_ignored = 20
+          return (x + not_ignored)