1 files changed, 37 insertions, 0 deletions
diff --git a/tests/programs/f32.zc b/tests/programs/f32.zc
new file mode 100644
index 0000000..0f60dcd
--- /dev/null
+++ b/tests/programs/f32.zc
@@ -0,0 +1,37 @@
+// f32: single precision values and packed arrays of them
+struct vec3 { f32 x, y, z; };
+f32 gsum;
+fn put_f(x) { asm { x @ #1220 } return 0; }
+[8]f32 gbuf;
+
+f32 half(f32 v) { return v / 2; }
+
+fn main() {
+	gsum = 0.1;
+	f32 a = 16777216.0;
+	f32 b = a + 1.0;			// rounds back to 16777216 in single precision
+	float c = 16777216.0 + 1.0;
+	f32 t = 0.1;
+	float u = 0.1;
+	put_f(b); put_c(' '); put_f(c); put_c(' ');
+	put_n(t == 0.1); put_n(t == u); put_n(t == (f32)u); put_c(' ');
+	put_f(half(3.0)); put_c(' ');
+	put_f(gsum * 10); put_c(' ');			// 1.000000 (0.1f * 10 in double)
+	vec3 v; v.x = 1.5; v.y = 0.1; v.z = 2;
+	put_f(v.x + v.y + v.z); put_c(' ');
+	int i = 0;
+	gbuf[0] = 0.1; put_n(gbuf[0] == t); put_n(gbuf[0] == u); put_c(' ');
+	while (i < 8) { gbuf[i] = i * 0.25 + 0.1; i++; }
+	float s = 0;
+	i = 0;
+	while (i < 8) { s += gbuf[i]; i++; }
+	put_f(s); put_c(' ');
+	f32* p = new(f32, 100);
+	i = 0;
+	while (i < 100) { p[i] = i; i++; }
+	s = 0; i = 0;
+	while (i < 100) { s += p[i]; i++; }
+	put_f(s); put_c(' ');
+	put_n(sizeof(gbuf)); put_n(sizeof([100]f32)); put_c(10);
+	free(d*p);
+}