fpcsrc/tests/webtbs/tw1851.pp


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

{ %opt=-Sew -vw }

{$mode objfpc}{$H+}

function A: boolean;

  procedure CheckResult;
  begin
    if not Result then writeln('Oha');
  end;

begin
  Result:=false;
  CheckResult;
end;

begin
  A;
end.