fpc/tests/test/tgeneric56.pp

21 lines
269 B
ObjectPascal

{ %FAIL }
{ this tests that the dummy symbol that is introduced for generic "overloads"
can not be used when it shouldn't be - Test 2 }
program tgeneric56;
{$ifdef fpc}
{$mode objfpc}
{$endif}
type
generic TTest<T> = class
end;
var
t: TTest;
begin
end.