Automated visibility section is not supported. #244

type
  TX = class
  automated
    procedure Test; virtual; abstract;
  end;

procedure TPasSyntaxTreeBuilder.VisibilityAutomated;
var
  Temp: TSyntaxNode;
begin
  Temp := FStack.Push(ntAutomated);
  try
    Temp.Attribute[anVisibility]:= AttributeValues[atTrue];
    inherited;
  finally
    FStack.Pop;
  end;
end;