1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{ %NORUN }
{ this tests that hint directives defined for a generic only apply when
specializung a generic and that specializations may introduce their own
directives }
program tgeneric50;
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TTest<T> = class
end deprecated 'Message A' platform;
// these will both print that TTest<T> is deprecated and platform
TTestInteger = TTest<Integer> deprecated 'Message B' experimental;
TTestString = TTest<String>;
var
// this will print that TTestInteger is deprecated and experimental
t: TTestInteger;
// this will print nothing
t2: TTestString;
begin
// this will print that TTest<T> is deprecated and platform
t2 := TTest<String>.Create;
// this will print that TTestInteger is deprecated and experimental
t := TTestInteger.Create;
end.
|
