From 4d5cd183405ad2678e5625b243eab6db193b141a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 15 Jun 1999 10:23:38 +0000
Subject: [PATCH] [project @ 1999-06-15 10:23:38 by simonmar] Test for Richard
 Reid's bug:  syntax C{} for constructing C with all fields set to bottom.

---
 ghc/tests/deSugar/should_run/Makefile        | 1 +
 ghc/tests/deSugar/should_run/dsrun007.hs     | 5 +++++
 ghc/tests/deSugar/should_run/dsrun007.stderr | 4 ++++
 3 files changed, 10 insertions(+)
 create mode 100644 ghc/tests/deSugar/should_run/dsrun007.hs
 create mode 100644 ghc/tests/deSugar/should_run/dsrun007.stderr

diff --git a/ghc/tests/deSugar/should_run/Makefile b/ghc/tests/deSugar/should_run/Makefile
index 46c52874b0ab..ddb826f2534c 100644
--- a/ghc/tests/deSugar/should_run/Makefile
+++ b/ghc/tests/deSugar/should_run/Makefile
@@ -5,6 +5,7 @@ include $(TOP)/mk/should_run.mk
 HC_OPTS += -dcore-lint
 
 dsrun005_RUNTEST_OPTS = -x 1
+dsrun007_RUNTEST_OPTS = -x 1
 
 include $(TOP)/mk/target.mk
 
diff --git a/ghc/tests/deSugar/should_run/dsrun007.hs b/ghc/tests/deSugar/should_run/dsrun007.hs
new file mode 100644
index 000000000000..19a0c641cb38
--- /dev/null
+++ b/ghc/tests/deSugar/should_run/dsrun007.hs
@@ -0,0 +1,5 @@
+data T = C Int
+
+unpick (C i) = i + 1
+
+main = print (unpick (C{}))
\ No newline at end of file
diff --git a/ghc/tests/deSugar/should_run/dsrun007.stderr b/ghc/tests/deSugar/should_run/dsrun007.stderr
new file mode 100644
index 000000000000..f8ad0ca9298f
--- /dev/null
+++ b/ghc/tests/deSugar/should_run/dsrun007.stderr
@@ -0,0 +1,4 @@
+
+Fail: dsrun007.hs:5: Missing field in record construction 
+
+
-- 
GitLab