blob: edd3c9b0b6e28dbb852c50d21a29017f7937a1ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
var
i: Byte;
w: word;
l: cardinal;
{$ifdef FPC}
g: qword;
{$endif FPC}
begin
i := $80;
if Byte(ByteBool(i))<>$80 then
halt(1);
if Word(WordBool(i))<>$80 then
halt(11);
if LongInt(LongBool(i))<>$80 then
halt(12);
w := $8000;
if Word(WordBool(w))<>$8000 then
halt(2);
l := $80000000;
if Cardinal(LongBool(l))<>$80000000 then
halt(3);
{$ifdef FPC}
g := qword($8000000000000000);
if qword(qwordBool(g))<>qword($8000000000000000) then
halt(4);
{$endif FPC}
if Byte(ByteBool(WordBool(w)))<>high(byte) then
halt(5);
if Byte(ByteBool(w))<>0 then
halt(51);
if Word(WordBool(LongBool(l)))<>high(word) then
halt(6);
if Word(WordBool(l))<>0 then
halt(61);
{$ifdef FPC}
if Cardinal(LongBool(qwordBool(g)))<>high(cardinal) then
halt(7);
if Cardinal(LongBool(g))<>0 then
halt(7);
{$endif FPC}
writeln('Test OK.');
end.
|
