diff --git a/ghc/tests/reader/should_compile/read023.hs b/ghc/tests/reader/should_compile/read023.hs
new file mode 100644
index 0000000000000000000000000000000000000000..dfcfd1e8b2bc0f72154de49f1f38cf96c63a4727
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read023.hs
@@ -0,0 +1,9 @@
+module ShouldCompile where
+
+-- M.<keyword> isn't a qualified identifier
+f = Just.let x=id in x
+
+-- M.{as,hiding,qualified} *are* qualified identifiers
+g = ShouldCompile.as
+
+as x = x