mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
22 lines
293 B
ObjectPascal
22 lines
293 B
ObjectPascal
var
|
|
qb : qwordbool;
|
|
lb : longbool;
|
|
wb : wordbool;
|
|
procedure p;
|
|
begin
|
|
if not(qb) then
|
|
halt(1);
|
|
if not(lb) then
|
|
halt(1);
|
|
if not(wb) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
qb:=qwordbool($8000000000000000);
|
|
lb:=longbool($80000000);
|
|
wb:=wordbool($8000);
|
|
p;
|
|
writeln('ok');
|
|
end.
|