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