blob: 3f47694a49c2073b14420ae01429484ce0b4a2c5 (
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
|
{ %version=1.1 }
{$R+}
var
s : string;
error : boolean;
begin
error:=false;
str(high(int64),s);
if s<>'9223372036854775807' then
begin
writeln('high(int64) error!: "',s,'"');
error:=true;
end;
str(low(int64),s);
if s<>'-9223372036854775808' then
begin
writeln('low(int64) error!: "',s,'"');
error:=true;
end;
{$ifdef fpc}
str(high(qword),s);
if s<>'18446744073709551615' then
begin
writeln('high(qword) error!: "',s,'"');
error:=true;
end;
str(low(qword),s);
if s<>'0' then
begin
writeln('low(qword) error!: "',s,'"');
error:=true;
end;
{$endif}
if error then
halt(1);
end.
|
