defn forup(){
	local i;
	for(i = 0; i < 10; i++)
		;

	assert(i == 10);
}

defn fordown(){
	local i;
	for(i = 10; i > 0; i--)
		;

	assert(i == 0);
}

defn forever(){
	local i, done;
	done = 0;
	i = 0;
	for(; !done; ){
		i++;
		if i == 10 then
			done = 1;
	}

	assert(i == 10);
}

defn forbreak(){
	for(;;){
		break;
		error("should not be reached");
	}
}

defn forcontinue(){
	local i;
	for(i = 0; i < 10; i++){
		forbreak();
		continue;
		error("should not be reached");
	}
}

forup();
fordown();
forever();
forbreak();
forcontinue();