diff options
Diffstat (limited to 'testsuite/tests/lib/should_run/text001.hs')
| -rw-r--r-- | testsuite/tests/lib/should_run/text001.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/lib/should_run/text001.hs b/testsuite/tests/lib/should_run/text001.hs new file mode 100644 index 0000000000..18aab82dd9 --- /dev/null +++ b/testsuite/tests/lib/should_run/text001.hs @@ -0,0 +1,15 @@ +{- Bug report 28 May 99 + +When compiled with ghc-4.02, everything's fine, it outputs "Value 7" as +expected. But compiled with ghc-pre-4.03 it yields this error message. + + Fail: Prelude.read: no parse +-} + +module Main where + +data Msg = Value Int | Inc deriving (Show, Read) + +main = do let v = read "Value 7"::Msg + print v + |