tb0263.pp 261 B

1234567891011121314151617181920
  1. { %FAIL }
  2. program tb0263;
  3. {$mode objfpc}
  4. {$modeswitch advancedrecords}
  5. type
  6. TTest = record
  7. public
  8. a, b: LongInt;
  9. public const
  10. Test: array[0..1] of record
  11. t: TTest;
  12. end = ((t: (a: 42; b: 21)), (t: (a: 21; b: 42)));
  13. end;
  14. begin
  15. end.