Add test case for #7117
[ghc.git] / testsuite / tests / ghci / scripts / T4015.hs
1 module Test (R(..)) where
2
3 data R = R { x :: Char, y :: Int, z :: Float }
4 | S { x :: Char }
5 | T { y :: Int, z:: Float }
6 | W
7