fpc/tests/tbs/ub0489.pp

{$mode delphi}
{$inline on}

unit ub0489;

interface

function test(b:integer;const x;c:integer):integer inline;

implementation

uses
  ub0489b;

function test(b:integer;const x;c:integer):integer inline;
begin
  result:=fpwrite(b,x,c);
end;

end.