{$mode delphi}

function test: byte; forward;

function test;
begin
  test:=5;
end;

begin
end.