[project @ 1997-05-19 00:34:38 by sof]
authorsof <unknown>
Mon, 19 May 1997 00:34:39 +0000 (00:34 +0000)
committersof <unknown>
Mon, 19 May 1997 00:34:39 +0000 (00:34 +0000)
Duplicate constructor check

GHC_ONLY/cg041/Main.hs [new file with mode: 0644]
GHC_ONLY/cg041/Makefile [new file with mode: 0644]

diff --git a/GHC_ONLY/cg041/Main.hs b/GHC_ONLY/cg041/Main.hs
new file mode 100644 (file)
index 0000000..09ae099
--- /dev/null
@@ -0,0 +1,22 @@
+{- 
+Date: Thu, 15 May 1997 14:20:29 +0100 (BST)
+From: Alex Ferguson <abf@cs.ucc.ie>
+The following erroneous fragment erroneously compiles.
+
+And then promptly falls over in the assembler, of all places.
+-}
+
+data Token
+     =  TokNewline
+     |  TokLiteral
+     |  TokCount
+     |  TokCheck
+     |  TokIs
+     |  TokDeref
+     |  TokFind
+     |  TokLiteral             -- Duplicated!
+     |  TokThe
+
+      deriving Show
+
+main = print TokCount
diff --git a/GHC_ONLY/cg041/Makefile b/GHC_ONLY/cg041/Makefile
new file mode 100644 (file)
index 0000000..cf44ea3
--- /dev/null
@@ -0,0 +1,5 @@
+TOP = ../..
+include $(TOP)/mk/boilerplate.mk
+-include opts.mk
+include $(TOP)/mk/target.mk
+