-- test of unnested non-recursive parameterless procedure
-- calls with no local variables or forward delcarations.
--
@c+
module test14 -- simple procedures  
 integer i;

 proc addone ()
 begin  i := i+1; end; -- note i is a global here.

 proc passthebuck()
 begin addone();  end;

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