blob: 1c195762b22821d4b340875c9b0cf395c0a2d54c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ Old file: tbs0209.pp }
{ problem with boolean expressions of different store sizes }
program bug0209;
{ problem with boolean expression mixing different boolean sizes }
var
b : boolean;
wb : wordbool;
lb : longbool;
begin
b:=true;
wb:=true;
lb:=true;
if (not b) or (not wb) or (not lb) then
begin
Writeln('Error with boolean expressions of different sizes');
Halt(1);
end;
end.
|
