Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
fe5776b4
Commit
fe5776b4
authored
Oct 28, 2008
by
simonpj
Browse files
Test Trac
#2723
parent
5e4fb4ff
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/rename/should_fail/T2723.hs
0 → 100644
View file @
fe5776b4
{-# OPTIONS_GHC -fwarn-name-shadowing -XNamedFieldPuns -XRecordWildCards #-}
module
WildCard
where
data
Record
=
Record
{
field1
::
Int
,
field2
::
Double
}
field3
::
Int
field3
=
3
test1
(
Record
{
field1
,
field2
})
=
let
test
=
1
in
field1
test2
::
(
Record
,
Int
)
test2
=
let
field1
=
10
field2
=
10.0
field3
=
8
in
(
Record
{
..
},
field3
)
testsuite/tests/ghc-regress/rename/should_fail/T2723.stderr
0 → 100644
View file @
fe5776b4
T2723.hs:15:4:
Warning: This binding for `field3' shadows the existing binding
defined at T2723.hs:7:0
In the binding group for: field1, field2, field3
testsuite/tests/ghc-regress/rename/should_fail/all.T
View file @
fe5776b4
...
...
@@ -69,4 +69,5 @@ test('rnfail055',
test
('
rn_dup
',
normal
,
compile_fail
,
[''])
test
('
T2310
',
normal
,
compile_fail
,
[''])
test
('
T2490
',
normal
,
compile_fail
,
[''])
test
('
T2723
',
normal
,
compile
,
[''])
# Warnings only
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment