blob: 601608a85ea91e25019234068347388d521a24c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ %FAIL }
{ Old file: tbf0208.pp }
{ implicit conversion from boolean to longint should not be allowed }
program tbf0208;
{ implicit boolean to integer conversion should not be
allowed }
var
b : boolean;
i : longint;
begin
b:=true;
i:=b;
end.
|
