fpcsrc/tests/webtbs/tw1096.pp


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

Program Test;
{$X-}

Function TestFunc : Boolean;
var b : Boolean;
begin
  TestFunc := True;
  b := True;
  if b then
  begin
    exit;
  end;
end;

begin
  writeln(3 xor 1);
  if TestFunc then
  begin
    writeln('Yo');
  end;
end.