1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/cgrun062.hs b/testsuite/tests/codeGen/should_run/cgrun062.hs
new file mode 100644
index 0000000000..915f84c397
--- /dev/null
+++ b/testsuite/tests/codeGen/should_run/cgrun062.hs
@@ -0,0 +1,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
+