tarray19.pp 279 B

12345678910111213141516171819202122
  1. { %FAIL }
  2. program tarray19;
  3. {$mode objfpc}
  4. {$modeswitch advancedrecords}
  5. type
  6. TTest = record
  7. class operator Explicit(a: array of LongInt): TTest;
  8. end;
  9. class operator TTest.Explicit(a: array of LongInt): TTest;
  10. begin
  11. end;
  12. var
  13. t: TTest;
  14. begin
  15. t := [21, 42];
  16. end.