tarray20.pp 210 B

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