mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 05:09:31 +02:00
24 lines
386 B
ObjectPascal
24 lines
386 B
ObjectPascal
{ %fail }
|
|
{$mode objfpc}
|
|
{$interfaces corba}
|
|
type
|
|
generic IList<TElem> = interface
|
|
end;
|
|
|
|
generic ISet<TElem> = interface
|
|
end;
|
|
|
|
generic IMap<TKey, TValue> = interface
|
|
|
|
type
|
|
TKeySet = specialize ISet<TKey>; // wrong syntax?
|
|
TValueSet = specialize IList<TValue>; // wrong syntax?
|
|
|
|
function Keys : TKeySet;
|
|
function Values : TValueSet;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|