a

1 files changed, 21 insertions, 0 deletions

diff --git a/tests/programs/typeok.zc b/tests/programs/typeok.zc
new file mode 100644
index 0000000..26ab3ad
--- /dev/null
+++ b/tests/programs/typeok.zc
@@ -0,0 +1,21 @@
+// passes the typechecker: words mix with everything, literal 0 is null,
+// arrays decay to pointers, generic calls bind their parameters
+typecheck on;
+struct pair<A, B> { A a; B b; };
+pair<A, B>*.u mk<A, B>(A x, B y) { pair<A, B>* p = new(pair<A, B>); p.a = x; p.b = y; return u*p; }
+A left<A, B>(pair<A, B>* p) { return p.a; }
+int strlen2(char* s) { int n = 0; while (s[n]) n++; return n; }
+int main() {
+	pair<int, char*>* p = mk(3, "four");
+	int a = left(p);
+	char* s = p.b;
+	[8]char buf;
+	char* q = buf;
+	int* nothing = 0;
+	let w = 5;
+	int mixed = w + 1;
+	q[0] = 'h'; q[1] = 0;
+	put_n(a + strlen2(s) + strlen2(buf) + mixed); put_c(10);
+	free(d*p);
+	return 0;
+}