blob: 06256e9c1a46474ec6cc78f060dfc984521b3e2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Program PackedAssignTest;
Uses uprec7;
Var BRecord:TRecord;
begin
if SizeOf (BRecord) <> s then
begin
WriteLn ('failed 1');
Halt
end;
BRecord := ARecord;
with BRecord do
if (a or not b or not c or not d or e or not f or g or h or not i)then
begin
WriteLn ('failed 2');
Halt(1);
end;
WriteLn ('OK')
end.
|
