tests/test/tarray19.pp


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

{ %FAIL }

program tarray19;

{$mode objfpc}
{$modeswitch advancedrecords}

type
  TTest = record
    class operator Explicit(a: array of LongInt): TTest;
  end;

class operator TTest.Explicit(a: array of LongInt): TTest;
begin

end;

var
  t: TTest;
begin
  t := [21, 42];
end.