From 38cc2ea36c7495eb425bbab2efebcba28465d07b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 1 Sep 1999 14:24:27 +0000
Subject: [PATCH] [project @ 1999-09-01 14:24:27 by sof] qualified import reg.
 test

---
 ghc/tests/reader/should_fail/read010.hs     |    9 +++++++++
 ghc/tests/reader/should_fail/read010.stderr |   14 ++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 ghc/tests/reader/should_fail/read010.hs
 create mode 100644 ghc/tests/reader/should_fail/read010.stderr

diff --git a/ghc/tests/reader/should_fail/read010.hs b/ghc/tests/reader/should_fail/read010.hs
new file mode 100644
index 0000000..8f47cf6
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read010.hs
@@ -0,0 +1,9 @@
+-- !!! Check that 'qualified' doesn't bring the unqual'ed name into scope.
+module ShouldFail where
+
+import qualified List as L ( intersperse ) 
+
+x = L.intersperse
+
+y = intersperse
+
diff --git a/ghc/tests/reader/should_fail/read010.stderr b/ghc/tests/reader/should_fail/read010.stderr
new file mode 100644
index 0000000..0c0eb5c
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read010.stderr
@@ -0,0 +1,14 @@
+
+==================== Parser ====================
+module ShouldFail where
+import qualified List as  L (intersperse)
+{- rec -}
+y = intersperse
+x = L.intersperse
+
+
+
+read010.hs:8: Variable not in scope: `intersperse'
+
+Compilation had errors
+
-- 
1.7.10.4