testsuite/tests/ghc-regress/codeGen/should_run/cgrun062.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


module Main where

newtype T = C { f :: String }

{-
hugs (Sept 2006) gives
"bc"
Program error: Prelude.undefined
hugs trac #48
-}

main = do print $ case C "abc" of
                  C { f = v } -> v
          print $ case undefined of
                  C {} -> True