fpc/tests/tppu/changeleaf1/src2/changeleaf1_bird.pas

unit changeleaf1_bird;

{$mode objfpc}

interface

function Fly(w : word): word;

implementation

function Fly(w : word): word;
begin
  Result := 5*w; // changed
end;

end.