ghc/tests/codeGen/cg041.hs

   1 {-
   2 Date: Thu, 15 May 1997 14:20:29 +0100 (BST)
   3 From: Alex Ferguson <abf@cs.ucc.ie>
   4 The following erroneous fragment erroneously compiles.
   5
   6 And then promptly falls over in the assembler, of all places.
   7 -}
   8
   9 data Token
  10      =  TokNewline
  11      |  TokLiteral
  12      |  TokCount
  13      |  TokCheck
  14      |  TokIs
  15      |  TokDeref
  16      |  TokFind
  17      |  TokLiteral              -- Duplicated!
  18      |  TokThe
  19
  20       deriving Show
  21
  22 main = print TokCount