mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 03:28:40 +02:00
31 lines
343 B
ObjectPascal
31 lines
343 B
ObjectPascal
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.
|
|
|