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

Test for lit-lits in patterns.

ghc/tests/deSugar/should_compile/ds049.hs

+{-# 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