[gesamt] Added ag/codea/codeb testcases

[testub10.git] / gesamt / codeb_skinner33_00.0

diff --git a/gesamt/codeb_skinner33_00.0 b/gesamt/codeb_skinner33_00.0
new file mode 100644 (file)
index 0000000..a1c1a9e
--- /dev/null
+++ b/gesamt/codeb_skinner33_00.0
@@ -0,0 +1,27 @@
+struct bar end;
+
+method foo(bar)
+       while not(0 = bar) do
+               bar := (bar - 1);
+               this.bar := (this.bar * 2);
+       end;
+       return this.bar;
+end;
+
+method bar(x)
+       while 1 do
+               x := x - (-1);
+               if not(x = 10) then
+                       x := x * 1;
+               else
+                       return x;
+               end;
+       end;
+end;
+
+method blu(a)
+       while 0 do
+               return 3;
+       end;
+       return 4;
+end;