1	function foo ()
2	foo = 4
3	foo = foo / 2
4	return
5	entry bar ()
6	bar = 9
7	bar = bar / 3
8	end
9
10	program entrytest
11	if (foo () .ne. 2) call abort ()
12	if (bar () .ne. 3) call abort ()
13	end
14