freepascal.compiler/tests/test/tover7.pp

{ %FAIL }

program tover7;

{$mode objfpc}

procedure Test(aArg: LongInt);
begin
end;

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

begin

end.