fpcsrc/tests/webtbs/tw10863.pp


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

function f(b,c,d : boolean) : longint;
 begin
   f:=ord(b);
 end;

procedure test;
var
 b,c : boolean;

begin
 b:=true;
 c:=false;
 b:=1<>f(b,not(b),c);
 c:=true;
 if (b) then
   halt(1);
 writeln(c);
end;

begin
  test;
end.