fpcsrc/tests/webtbf/tw14248.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %fail }
program Project1;
{$mode objfpc}{$H+}

function Foo(a: Integer): Integer;
begin
  dec(a);
  if a < 0 then exit;
  Result := Result(a);
end;

begin
  Foo(10);
end.