summary refs log tree commit diff
path: root/proto/ctests/psum.c
blob: 4ea6a03bf938502c76655a566fc5dd14558d8e8c (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
long f() {
	long n, n0, s;
	
	s = 0;
	n = 1234567;
	for (;;) {
		n0 = n - 1;
		s = s + n;
		if (!n0) break;
		n = n0;
	}
	return s;
}