fpcsrc/tests/webtbs/tw18767b.pp


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

{ %norun}
program tw18767b;

{$mode delphi}{$H+}

type
  TFoo = class
  strict private
    type
      TBar = (one, two);
    var
      x: array of record
        y: array[TBar] of integer;
      end;
  end;

begin
  TFoo.Create;
end.