blob: 493eda96a9f367607a646b9fe81cd730802b7a1d (
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
var
error: boolean;
procedure test;
var
b: byte;
l: longint;
begin
b := 254;
inc(b,2);
l := b;
if (l <> 0) then
begin
writeln('overflow error with byte');
error := true;
end;
b :=1;
dec(b,2);
l := b;
if (l <> 255) then
begin
writeln('underflow error with byte');
error := true;
end;
end;
procedure test2;
var
b: shortint;
l: longint;
begin
b := -127;
dec(b,2);
l := b;
if (l <> 127) then
begin
writeln('neg error with shortint');
error := true;
end;
b := 126;
inc(b,2);
l := b;
if (l <> -128) then
begin
writeln('pos error with shortint');
error := true;
end;
end;
procedure test3;
var
b: longint;
l: int64;
begin
b := low(longint)+1;
dec(b,2);
l := b;
if (l <> high(longint)) then
begin
writeln('neg error with shortint');
error := true;
end;
b := high(longint)-1;
inc(b,2);
l := b;
if (l <> low(longint)) then
begin
writeln('pos error with shortint');
error := true;
end;
end;
begin
error := false;
test;
test2;
test3;
halt(ord(error));
end.
|
