pascalabcnet/TestSuite/where17.pas

13 lines
180 B
ObjectPascal
Raw Permalink Normal View History

2021-01-07 13:59:49 +03:00
type
c1<T1, T2> = class where T1: List<T2>;
end;
c2<T2, T3> = class(c1<T2, T3>) where T2: List<T3>;
end;
begin
new c2<List<string>, string>;
end.