diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-22 18:54:51 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-22 18:54:51 +0000 |
| commit | 41b263cf6aa38e7c6ef090c0fa18949b86eec62c (patch) | |
| tree | 9e604716ed1455238c3c49cf8add777c0cdf74d4 /testsuite/update | |
| parent | 7a204376c91ea9647ec4418cfcd3ed0dd7891fae (diff) | |
some work on evaluation with abstract expressions in PGF
Diffstat (limited to 'testsuite/update')
| -rw-r--r-- | testsuite/update/ArrityCheck.gf | 5 | ||||
| -rw-r--r-- | testsuite/update/ArrityCheck.gfs | 1 | ||||
| -rw-r--r-- | testsuite/update/ArrityCheck.gfs.gold | 8 |
3 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/update/ArrityCheck.gf b/testsuite/update/ArrityCheck.gf new file mode 100644 index 000000000..9ee03ba6e --- /dev/null +++ b/testsuite/update/ArrityCheck.gf @@ -0,0 +1,5 @@ +abstract ArrityCheck = {
+ fun f : Int -> Int -> Int ;
+ def f 0 = \x -> x ;
+ f 1 1 = 0 ;
+}
diff --git a/testsuite/update/ArrityCheck.gfs b/testsuite/update/ArrityCheck.gfs new file mode 100644 index 000000000..b63c0ca51 --- /dev/null +++ b/testsuite/update/ArrityCheck.gfs @@ -0,0 +1 @@ +i testsuite\update\ArrityCheck.gf
diff --git a/testsuite/update/ArrityCheck.gfs.gold b/testsuite/update/ArrityCheck.gfs.gold new file mode 100644 index 000000000..924dddf1e --- /dev/null +++ b/testsuite/update/ArrityCheck.gfs.gold @@ -0,0 +1,8 @@ +
+
+C:\gf_2\testsuite\update\ArrityCheck.gf:6:1: cannot unify the informations
+ fun f : Int -> Int -> Int ;
+ def f 0 = \x -> x ;
+and
+ def f 1 1 = 0 ;
+in module ArrityCheck
|