freepascal.compiler/tests/webtbs/tw16668.pp

{ %opt=-g-t }

program Project1;

{$mode objfpc}{$H+}

procedure Foo1;
var
  a: TObject;
  r: record
    b : array[0..10] of byte
  end;
begin
{$ifdef cpu32}
  if ptruint(a)<>$55555555 then
    halt(1);
{$else}
  if ptruint(a)<>$5555555555555555 then
    halt(1);
{$endif}
end;

procedure Foo2;inline;
var
  a: TObject;
  r: record
    b : array[0..10] of byte
  end;
begin
{$ifdef cpu32}
  if ptruint(a)<>$55555555 then
    halt(1);
{$else}
  if ptruint(a)<>$5555555555555555 then
    halt(1);
{$endif}
end;


procedure Foo3;inline;
var
  r: record
    b : array[0..10] of byte
  end;
begin
  if r.b[3]<>$55 then
    halt(1);
end;

begin
  Foo1;
  Foo2;
  Foo3;
  writeln('ok');
end.