fpc/tests/test/tgenfwd13.pp

20 lines
233 B
ObjectPascal

{ %NORUN }
program tgenfwd13;
{$mode objfpc}
type
generic ITest<T> = interface;
generic ISomeIntf<T> = interface
procedure Something(aTest: specialize ITest<T>);
end;
generic ITest<T> = interface
end;
begin
end.