[project @ 2001-05-02 16:15:09 by sewardj]

[ghc-hetmet.git] / ghc / tests / ghci / ghci006.hs

diff --git a/ghc/tests/ghci/ghci006.hs b/ghc/tests/ghci/ghci006.hs
new file mode 100644 (file)
index 0000000..a09377c
--- /dev/null
+++ b/ghc/tests/ghci/ghci006.hs
@@ -0,0 +1,6 @@
+
+data Q = forall x . Show x => Q x
+showQ (Q x) = show x
+
+-- associated bug is that at the interpreter command line,
+--   showQ (Q "foo") crashed the interpreter.
\ No newline at end of file