tests/webtbs/tw19548.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{$MODE OBJFPC} { -*- text -*- }
program tests;

type
   generic TTest <PTest> = class
     FPointer: PTest;
     procedure Foo();
   end;

procedure TTest.Foo();
var
   Result: Boolean;
begin
   Result := FPointer = nil;
end;

type
  TPointerTest = specialize TTest <Pointer>;

begin
end.