summaryrefslogtreecommitdiff
path: root/testsuite/compiler/renamer/varpatt.gf
diff options
context:
space:
mode:
authorkrasimir <krasimir@chalmers.se>2009-05-20 20:24:15 +0000
committerkrasimir <krasimir@chalmers.se>2009-05-20 20:24:15 +0000
commit8f2fb8275049f7622e8d95abf33b48b80ad887e5 (patch)
treed66faa43c6d8936ce43095dda49d58916b9fb30c /testsuite/compiler/renamer/varpatt.gf
parent6de94f53002263878bfb03e31d26caefa4872f20 (diff)
more friendly error message when renaming patterns
Diffstat (limited to 'testsuite/compiler/renamer/varpatt.gf')
-rw-r--r--testsuite/compiler/renamer/varpatt.gf13
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/compiler/renamer/varpatt.gf b/testsuite/compiler/renamer/varpatt.gf
new file mode 100644
index 000000000..93bddd63e
--- /dev/null
+++ b/testsuite/compiler/renamer/varpatt.gf
@@ -0,0 +1,13 @@
+abstract varpatt = {
+
+-- this should raise error
+-- we cannot pattern match on functions
+
+cat D ;
+fun D1 : D ;
+ D2 : D ;
+
+fun d : D -> Int ;
+def d x = 1 ;
+
+} \ No newline at end of file