Commit 66660a59 authored by simonpj's avatar simonpj
Browse files

Test Trac #3262

parent db3dbefd
{-# 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)
T3262.hs:12:10:
Warning: This binding for `not_ignored' shadows the existing binding
bound at T3262.hs:11:10
In the binding group for: not_ignored
T3262.hs:20:14:
Warning: This binding for `not_ignored' shadows the existing binding
bound at T3262.hs:19:14
In the binding group for: not_ignored
......@@ -117,6 +117,7 @@ test('2334', normal, compile, [''])
test('T2506', normal, compile, [''])
test('T2914', normal, compile, [''])
test('T3221', normal, compile, [''])
test('T3262', normal, compile, [''])
test('timing001', normal, compile, [''])
test('timing002', normal, compile, [''])
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment