{ %NORUN }

program tb0589;

type
  TTest = record
    f: array of TTest;
  end;

begin

end.