fpcsrc/tests/test/tinline7.pp


1
2
3
4
5
6
7
8
9
10
11

{$inline on}

function f(const a,b: longint): longint; inline;
begin
  f:=a*b;
end;

begin
  if (f(f(f(2,5),3),4) <> 120) then
    halt(1);
end.