[project @ 1999-11-09 11:38:28 by simonmar]

Test for lit-lits in patterns.

diff --git a/ghc/tests/deSugar/should_compile/ds049.hs b/ghc/tests/deSugar/should_compile/ds049.hs
new file mode 100644 (file)
index 0000000..b2438d1
--- /dev/null
+++ b/ghc/tests/deSugar/should_compile/ds049.hs
@@ -0,0 +1,14 @@
+{-# OPTIONS -fglasgow-exts #-}
+
+module ShouldCompile where
+
+-- !!! test lit-lits in patterns
+
+import Addr
+
+litlit_int    (``1''      :: Int)    = 42
+litlit_word   (``1''      :: Word)   = 42
+litlit_char   (`` '\n' '' :: Char)   = 42
+litlit_addr   (``NULL''   :: Addr)   = 42
+litlit_float  (``1.0''    :: Float)  = 42
+litlit_double (``1.0''    :: Double) = 42