{ %FAIL }

program tover7;

{$mode objfpc}

procedure Test(aArg: LongInt);
begin
end;

function Test(aArg: LongInt): LongInt;
begin
end;

begin

end.