[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / interpreter / test / static / s112.hs

diff --git a/ghc/interpreter/test/static/s112.hs b/ghc/interpreter/test/static/s112.hs
new file mode 100644 (file)
index 0000000..611961b
--- /dev/null
+++ b/ghc/interpreter/test/static/s112.hs
@@ -0,0 +1,6 @@
+--!!! Constructor ... does not have selected fields in ...
+data T = T1 {x,y   :: Int}
+       | T2 {  y,z :: Int}
+
+f a b c = T1{y=b,z=c}
+