tests/test/tcustomattr17.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{ %FAIL }

program tcustomattr17;

{$mode objfpc}
{$modeswitch prefixedattributes}

type
  TTest = class(TCustomAttribute)
    constructor Create;
  end;

  [TTest]
  Int = Integer;

constructor TTest.Create;
begin

end;

begin
end.