program tarrtest;

{$mode objfpc}
{$COperators on}
{$modeswitch arrayoperators}

var
  A: array of TClass;
begin
  A := nil;
  A += [TObject];
end.