mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
29 lines
357 B
ObjectPascal
29 lines
357 B
ObjectPascal
type
|
|
r1 = packed record
|
|
b : byte;
|
|
l : longint;
|
|
end;
|
|
|
|
r2 = record
|
|
b : byte;
|
|
l : longint;
|
|
end;
|
|
|
|
{$a-}
|
|
r3 = record
|
|
b : byte;
|
|
l : longint;
|
|
end;
|
|
|
|
{$a+}
|
|
r4 = record
|
|
b : byte;
|
|
l : longint;
|
|
end;
|
|
|
|
begin
|
|
if (sizeof(r1)<>sizeof(r3)) or (sizeof(r2)<>sizeof(r4)) then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|