blob: 1e593265a6c69a88a0b2736ff928f543cdf67fc8 (
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
|
type
tr = record
b1, b2, b3, b4: shortint;
end;
procedure t;
var
r: tr;
l: longint;
begin
r.b1 := 1;
r.b2 := 2;
r.b3 := 3;
r.b4 := 4;
l := -1;
r.b2 := l;
if (r.b1 <> 1) or
(r.b2 <> -1) or
(r.b3 <> 3) or
(r.b4 <> 4) then
begin
writeln('error');
halt(1);
end;
end;
begin
t;
end.
|
