2
0

tb0264.pp 242 B

123456789101112131415161718192021
  1. { %FAIL }
  2. program tb0264;
  3. {$mode objfpc}
  4. {$modeswitch advancedrecords}
  5. type
  6. TTest = record
  7. public
  8. a, b: LongInt;
  9. public type
  10. TSubType = record
  11. public const
  12. Test: TTest = (a: 42; b: 21);
  13. end;
  14. end;
  15. begin
  16. end.