[gesamt] two new testcases

[testub10.git] / gesamt / skinner33_02.0

diff --git a/gesamt/skinner33_02.0 b/gesamt/skinner33_02.0
new file mode 100644 (file)
index 0000000..aada129
--- /dev/null
+++ b/gesamt/skinner33_02.0
@@ -0,0 +1,29 @@
+struct a b c d end;
+
+method inc()
+       this.a := this.a - -1;
+       this.b := this.b - -1;
+       this.c := this.c - -1;
+       this.d := this.d - -1;
+       return this.a;
+end;
+
+method m(ar)
+       5;
+       20 - ar.inc() - 70;
+       inc();
+       ar.inc();
+       20 * inc();
+       20 * (5 - 4 - (4 * ((5 or 6) < ar.inc())));
+       inc() * 20;
+       (((ar.inc() < (5 or 6)) *4) - 4 - 5) * 20;
+
+       15 * (ar.inc() < (5 -inc()));
+       ar.inc() < inc();
+
+       inc(4-5);       
+       (((ar.inc(4-5,6*4,5<5) < (5 or 6)) *4) - 4 - 5) * 20;
+       return 0;
+end;
+
+