tests/projects/pascal/shared/src/foo.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

library foo;

{$mode objfpc}{$H+}

function fib(n : Int64) : Int64; cdecl;
begin
  if n > 1 then
  begin
      Result := fib(n - 1) + fib(n - 2);
  end
  else
        Result := 1;
end;

exports
 fib;
end.