namespace;
include rt, run;

// 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; }
f32[8] run.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); rt.put_c(' '); put_f(c); rt.put_c(' ');
	rt.put_n(t == 0.1); rt.put_n(t == u); rt.put_n(t == (f32)u); rt.put_c(' ');
	put_f(half(3.0)); rt.put_c(' ');
	put_f(gsum * 10); rt.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); rt.put_c(' ');
	int i = 0;
	run.gbuf[0] = 0.1; rt.put_n(run.gbuf[0] == t); rt.put_n(run.gbuf[0] == u); rt.put_c(' ');
	while (i < 8) { run.gbuf[i] = i * 0.25 + 0.1; i++; }
	float s = 0;
	i = 0;
	while (i < 8) { s += run.gbuf[i]; i++; }
	put_f(s); rt.put_c(' ');
	f32* p = rt.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); rt.put_c(' ');
	rt.put_n(sizeof(run.gbuf)); rt.put_n(sizeof(f32[100])); rt.put_c(10);
	rt.free(d*p);
}