fpc/tests/tppu/changeinlinebody/changed/testcib_bird.pas

unit testcib_bird;

{$mode objfpc}

interface

function Fly(w : word): word;

implementation

function Fly(w : word): word; inline;
begin
  Result:= 3 * w;
end;

end.