ghc/tests/lib/should_run/text001.hs

   1 {-      Bug report 28 May 99
   2
   3 When compiled with ghc-4.02, everything's fine, it outputs "Value 7" as
   4 expected. But compiled with ghc-pre-4.03 it yields this error message.
   5
   6    Fail: Prelude.read: no parse
   7 -}
   8
   9 module Main where
  10
  11 data Msg = Value Int | Inc   deriving (Show, Read)
  12
  13 main = do let v = read "Value 7"::Msg
  14           print v
  15