blob: f98a1a990fe5235d57c7569b5de69846624d76c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
/*
* make sure illegal type comparisions throw an error
*/
module bool_conditions;
var
i : integer;
b : boolean;
begin
i := 1;
b := false;
if i > b do
end;
end
|