Add test for Trac #3901

2 files changed, 15 insertions, 0 deletions

diff --git a/testsuite/tests/ghc-regress/rename/should_compile/T3901.hs b/testsuite/tests/ghc-regress/rename/should_compile/T3901.hs
new file mode 100644
index 0000000000..39b521977b
--- /dev/null
+++ b/testsuite/tests/ghc-regress/rename/should_compile/T3901.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE RecordWildCards, TransformListComp, NamedFieldPuns #-}
+
+module T3901 where
+
+data Rec = Rec {a :: Int} deriving (Show)
+
+recs1 = [a | Rec {a=a} <- [Rec 1], then group by a]
+
+recs2 = [a | Rec {a} <- [Rec 1], then group by a]
+
+recs3 = [a | Rec {..} <- [Rec 1], then group by a]
+
+recs4 :: [[Int]]
+recs4 = [a | Rec {..} <- [Rec 1], then group by a]
diff --git a/testsuite/tests/ghc-regress/rename/should_compile/all.T b/testsuite/tests/ghc-regress/rename/should_compile/all.T
index 2e040da73d..c213fab5bd 100644
--- a/testsuite/tests/ghc-regress/rename/should_compile/all.T
+++ b/testsuite/tests/ghc-regress/rename/should_compile/all.T
@@ -121,6 +121,7 @@ test('T3262', normal, compile, [''])
 test('T3371', normal, compile, [''])
 test('T1074b', normal, compile, ['-Wall'])
 test('T3640', normal, compile, [''])
+test('T3901', normal, compile, [''])
 
 test('timing001', normal, compile, [''])
 test('timing002', normal, compile, [''])