program tattr;

{$mode objfpc}
{$modeswitch prefixedattributes}

uses
  Rtti;

type
  MyAttribute = class(TCustomAttribute)
  end;

  [MyAttribute]
  TTest = class

  end;

var
  context: TRTTIContext;
  t: TRttiType;
  attrs: TCustomAttributeArray;
  attr: TCustomAttribute;
  m: MyAttribute;
begin
  //m := MyAttribute.Create;
  context := TRTTIContext.Create;
  try
    t := context.GetType(TTest);
    attrs := t.GetAttributes;
    for attr in attrs do begin
      Writeln(attr.ClassName);
    end;
  finally
    context.Free;
  end;
end.