aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/float.zc
blob: 81b866862f8ef8f4f6c17d3eb90d5ea7cdedc1ec (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
fn put_f(x) { asm { x @ #1220 } return 0; }
fn f2i(x) { return asm { x @ #1218 }; }
fn i2f(x) { return asm { x @ #1216 }; }
fn sp() { put_c(32); return 0; }

fn main() {
	let a = 1.5;
	let b = 2.5;
	put_f(a + b); sp();
	put_f(7.0 - 2.5); sp();
	put_f(1.5 * 2); sp();
	put_f(10.0 / 4.0); sp();
	put_f(1 + 1.5); sp();
	put_f(1.5e-3); sp();
	put_f(0.1); sp();
	put_f(-0.125); sp();
	put_f(1.0 / 0.0); sp();
	put_f(-1.0 / 0.0); sp();
	put_f(0.0 / 0.0); sp();
	put_n(1.5 < 2.0); sp();
	put_n(2.0 <= 2.0); sp();
	put_n(2.0 == 2); sp();
	put_n(1.5 == 1); sp();
	put_n(3.0 > 3.5); sp();
	put_n(f2i(3.9)); sp();
	put_n(f2i(-3.9)); sp();
	put_f(i2f(3)); sp();
	put_f(i2f(-2)); sp();
	put_n(10 / 4);
	put_c(10);
	return 0;
}