From: simonmar <unknown>
Date: Tue, 9 Nov 1999 11:38:28 +0000 (+0000)
Subject: [project @ 1999-11-09 11:38:28 by simonmar]
X-Git-Tag: Approximately_9120_patches~5585
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=532fc33149d79e65f27459e359b4d861e599761f;p=ghc-hetmet.git

[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
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