blob: 2218d9869bf88877d64283da00dd673c743ffc18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{ Old file: tbs0211.pp }
{ a and not a is true !!! (if a:=boolean(5)) OK 0.99.11 (PM) }
var
a,b : boolean;
c : byte;
i : longint;
procedure Error;
begin
Writeln('Error in bug0211');
Halt(1);
end;
begin
c:=5;
a:=boolean(c);
if a and not a then
Begin
Writeln('FPC is crazy !!');
Error;
End;
i:=256;
a:=boolean(i);
{ the value here is less trivial }
{ BP returns false here !! }
{ the problem is the converting wordbool to boolean }
{ if wordbool is 256 should not convert true to false !! }
Writeln('boolean(256) =',a);
end.
|
