diff --git a/testsuite/tests/patsyn/should_fail/as-pattern.hs b/testsuite/tests/patsyn/should_fail/as-pattern.hs
new file mode 100644
index 0000000000000000000000000000000000000000..2794bed16ae8c3e1e13cfb5a9933d6f5f7c6cc33
--- /dev/null
+++ b/testsuite/tests/patsyn/should_fail/as-pattern.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE PatternSynonyms #-}
+module ShouldFail where
+
+pattern P x y <- x@(Just y)