tests/test/tarray20.pp


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

{ %FAIL }

program tarray20;

{$mode objfpc}
{$modeswitch advancedrecords}

type
  TTest = record
  end;

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

end;

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