freepascal.compiler/tests/tbf/tb0119.pp

{ %FAIL }

procedure p(const primo,primo:longint);
begin
end;

begin
end.