mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 22:28:06 +02:00
32 lines
387 B
ObjectPascal
32 lines
387 B
ObjectPascal
{ %fail }
|
|
|
|
type
|
|
p_int = procedure (var i : smallint);
|
|
|
|
procedure testl(var i : longint);
|
|
begin
|
|
i:=$ffff;
|
|
end;
|
|
|
|
|
|
var
|
|
p : p_int;
|
|
r : packed record
|
|
{$ifdef ENDIAN_BIG}
|
|
j,i : smallint;
|
|
{$else}
|
|
i,j : smallint;
|
|
{$endif}
|
|
end;
|
|
|
|
begin
|
|
p:=@testl;
|
|
r.j:=5;
|
|
p(r.i);
|
|
if r.j<>5 then
|
|
begin
|
|
writeln('Wrong code overwrites j');
|
|
halt(1);
|
|
end;
|
|
end.
|