mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
25 lines
312 B
ObjectPascal
25 lines
312 B
ObjectPascal
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);
|
|
Writeln('boolean(256) =',a);
|
|
end.
|
|
|