1 files changed, 33 insertions, 0 deletions
diff --git a/tests/programs/annotate.zc b/tests/programs/annotate.zc
new file mode 100644
index 0000000..75dad97
--- /dev/null
+++ b/tests/programs/annotate.zc
@@ -0,0 +1,33 @@
+// zclsp --annotate writes the types the compiler can see into a program that
+// has none. this one has none: locals take the type of what they start as, a
+// parameter takes the type every call gives it, and a function the type of
+// what it returns. what it can't tell it leaves alone (twice is called with
+// a plain word, so its parameter stays), and the program still means the
+// same thing: tests/test.sh runs both and compares.
+include "src/lib/std.zc";
+struct point { int x, y; };
+let calls = 0;
+let name = "annotate";
+let table[4];
+fn add(a, b) { calls = calls + 1; return a + b; }
+fn scale(p, k) { p.x = p.x * k; p.y = p.y * k; return p; }
+.u fresh(x, y) {
+	let p = new(point);
+	p.x = x; p.y = y;
+	return u*p;
+}
+fn twice(v) { return v + v; }
+fn len3(s) { return len_w(s) + 3; }
+fn half(f) { return f / 2.0; }
+fn main() {
+	let i = 0, sum = 0, buf[6];
+	let word_ = table, text = "abc";
+	let pt = fresh(2, 3);
+	let r = 1.5;
+	while (i < 4) { table[i] = add(i, 10); sum = sum + table[i]; i++; }
+	scale(pt, 3);
+	buf[0] = twice(sum);
+	put_n(sum); put_c(32); put_n(pt.x + pt.y); put_c(32); put_n(buf[0]); put_c(32);
+	put_n(len3(text)); put_c(32); put_n(calls); put_c(32); put_n(half(r) * 4); put_c(10);
+	return 0;
+}