testfaelle von thomas ogrisegg (newsgroup)

[testub10.git] / parser / tom_all.0

diff --git a/parser/tom_all.0 b/parser/tom_all.0
new file mode 100644 (file)
index 0000000..5cfc750
--- /dev/null
+++ b/parser/tom_all.0
@@ -0,0 +1,19 @@
+/* all - teste alle ableitungen */
+struct
+a
+end;
+
+method b(c d)
+  var e := 0;
+  c := e;
+  d = e;
+  if (e = d) then c := 1-2; end;
+  if (e < d) then c := 1 or 2 or 3; else c := c * d * e; end;
+  while (not d) do
+     d := d.c - d -d - d;
+     d.c := c.d - d.c;
+     b (d, c);
+     b.b (c, d);
+  end;
+  return c = d;
+end;