blob: 77501804a294dd36c2d36c64035996c5848d466b (
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
|
{ from gpc testsuite, original name: waldek9b.pas }
{$ifdef fpc}
{$mode macpas}
{$endif}
program rrr(Output);
type tr = record end;
tp = packed record
i : tr;
end;
var a : array [0..15] of tp;
pa : packed array [0..15] of tp;
begin
pack (a, 0, pa);
if sizeof(a) <> 0 then
halt(1);
if (sizeof(pa) <> 0) then
halt(2);
if (sizeof(tr) <> 0) then
halt(3);
if (sizeof(tp) <> 0) then
halt(4);
WriteLn ('OK')
end.
|
