tests/webtbf/tw22219.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %FAIL }

program tw22219;
{$MODE DELPHI}

type
  TWrapper<P, Q> = record end;
  TWrapper<R> = record end;
  AmbiguousPointer = ^TWrapper;

var
  Z: AmbiguousPointer;

begin

end.