{ test of unnested non-recursive parameterless procedure
	 calls with no local variables or forward delcarations.
}
$c+
module test14 { simple procedures } 
 integer i;
 tuple [procedure addone(), procedure passthebuck()] adder;

 procedure adder@addone 
 begin  
 	i := i+1; { note i is a global here.}
 end; 

 procedure adder@passthebuck
 begin 
 	adder!addone();  
 end;
 
private
begin
  i := 0;
  write ' = ', i, ' (should be 0)';
   adder!passthebuck();
  write ' = ', i, ' (should be 1)';
   write "All done!" ;
end.
