freepascal.compiler/bugs/bug0013.pp

procedure test(w : word);

  begin
  end;

begin
   test(1234);
end.