fpcsrc/tests/webtbs/tw18767a.pp


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

{ %norun}
program tw18767a;

{$mode delphi}{$H+}

type
  TFoo = class
  strict private
    const
      n = 3;
    var
      x: array[0..1] of record
        y: array[0..n] of integer;
      end;
  end;

begin
  TFoo.Create;
end.