2 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/parser/should_compile/T19521.hs b/testsuite/tests/parser/should_compile/T19521.hs
new file mode 100644
index 0000000000..5ebca17a3e
--- /dev/null
+++ b/testsuite/tests/parser/should_compile/T19521.hs
@@ -0,0 +1,12 @@
+{-# LANGUAGE OverloadedRecordDot #-}
+
+module T19521 where
+
+data Foo =
+  Foo {
+    val :: Int,
+    fun :: Int -> Int
+  }
+
+apply :: Foo -> Int
+apply foo = foo.fun foo.val
diff --git a/testsuite/tests/parser/should_compile/all.T b/testsuite/tests/parser/should_compile/all.T
index 4aa6d17ec0..d2b3a69385 100644
--- a/testsuite/tests/parser/should_compile/all.T
+++ b/testsuite/tests/parser/should_compile/all.T
@@ -174,3 +174,4 @@ test('T18834a', normal, compile, [''])
 test('T18834b', normal, compile, [''])
 test('T12862', normal, compile, [''])
 test('T19082', normal, compile, [''])
+test('T19521', normal, compile, [''])