mips/tests/webtbs/tw22154.pp


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

program tw22154;

{$MODE DELPHI}

type
  TWrapper<T> = class
    procedure Z;
  end;

procedure TWrapper<T>.Z;
const
  A0: array [0..0] of Integer = (0);     { OK }
  A1: array [0..1] of Integer = (0, 1);  { Comma not exepcted }
begin
end;

begin
end.