unit test_debug_unit;

interface

function f:integer;

implementation

function f:integer;
begin
  f:=1;
end;

end.