freepascal.compiler/bugs/bug0237.pp

unit bug0237;
interface

  procedure sub1(w1,w2:word);

implementation

procedure p1;

  procedure sub1(w:word);
  begin
  end;

begin
end;


procedure sub1(w1,w2:word);
begin
end;

end.