diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-20 16:38:19 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-20 16:38:19 +0000 |
| commit | 880665ad0fb52dbbfdbe8e0300806fd90a8ca0b8 (patch) | |
| tree | c91c78f0abd0f22d6cbe84f59be3b0615b46dc2e | |
| parent | 77017c75a7f3f947de845b2565354b3bd5a30909 (diff) | |
testcase for parameters with nested records
| -rw-r--r-- | testsuite/compiler/params/params.gf | 7 | ||||
| -rw-r--r-- | testsuite/compiler/params/params.gfs | 1 | ||||
| -rw-r--r-- | testsuite/compiler/params/paramsCnc.gf | 20 |
3 files changed, 28 insertions, 0 deletions
diff --git a/testsuite/compiler/params/params.gf b/testsuite/compiler/params/params.gf new file mode 100644 index 000000000..0ca96a00a --- /dev/null +++ b/testsuite/compiler/params/params.gf @@ -0,0 +1,7 @@ +abstract params = {
+
+cat S; NP ;
+
+fun test : NP -> S ;
+
+}
\ No newline at end of file diff --git a/testsuite/compiler/params/params.gfs b/testsuite/compiler/params/params.gfs new file mode 100644 index 000000000..234aa4fbf --- /dev/null +++ b/testsuite/compiler/params/params.gfs @@ -0,0 +1 @@ +i testsuite\compiler\params\paramsCnc.gf
diff --git a/testsuite/compiler/params/paramsCnc.gf b/testsuite/compiler/params/paramsCnc.gf new file mode 100644 index 000000000..1b8b7ac16 --- /dev/null +++ b/testsuite/compiler/params/paramsCnc.gf @@ -0,0 +1,20 @@ +concrete paramsCnc of params = {
+
+param
+ Number = Sg | Pl ;
+ Person = P1 | P2 | P3 ;
+
+oper
+ Agr = {n : Number; p : Person} ;
+
+param
+ Case = Nom | Acc | Abess Agr ;
+
+lincat
+ S = {s : Str} ;
+ NP = {s : Case => Str} ;
+
+lin
+ test np = {s = np.s ! Abess {n=Sg;p=P3}} ;
+
+}
\ No newline at end of file |