-- test of unnested non-recursive procedure
-- calls with no local variables and forward delcarations.
--

@c+
module test19 -- forward declarations 
private
 integer i, value;

 proc addone(val integer i; ref integer result);

 proc passthebuck (val integer j; ref integer result)
 begin addone(j, result); end;

 proc addone
 begin  result := i+1; end;

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

