freepascal.compiler/tests/test/ucustomattr14a.pp

unit ucustomattr14a;

{$mode objfpc}{$H+}

interface

type
  TTestAttribute = class(TCustomAttribute)
  end;

  TTest2Attribute = class(TCustomAttribute)
    constructor Create(const aStr: String);
  end;

implementation

constructor TTest2Attribute.Create(const aStr: String);
begin

end;

end.