diff --git a/testsuite/tests/typecheck/should_compile/T8856.hs b/testsuite/tests/typecheck/should_compile/T8856.hs
new file mode 100644
index 0000000000000000000000000000000000000000..6605e479fda5c9159b8da19da3742ab1cd7dc53c
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T8856.hs
@@ -0,0 +1,6 @@
+{-# LANGUAGE ScopedTypeVariables, RankNTypes, PolyKinds #-}
+module T8856 where
+
+import Data.Proxy
+
+foo = (undefined :: Proxy a) :: forall a. Proxy a
diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T
index 35b5dd2e9006b7bb008528bd3e16346d18f057a0..373e739a3f1cac4e7cdc01e0ec2b079e3e90190c 100644
--- a/testsuite/tests/typecheck/should_compile/all.T
+++ b/testsuite/tests/typecheck/should_compile/all.T
@@ -417,3 +417,4 @@ test('T8565', normal, compile, [''])
 test('T8644', normal, compile, [''])
 test('T8762', normal, compile, [''])
 test('MutRec', normal, compile, [''])
+test('T8856', normal, compile, [''])