fpc/tests/test/tgeneric58.pp

22 lines
292 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 4 }
program tgeneric58;
{$ifdef fpc}
{$mode objfpc}
{$endif}
type
generic TTest<T> = class
end;
var
t: TObject;
begin
t := TTest.Create;
end.