{ %FAIL } program tb0264; {$mode objfpc} {$modeswitch advancedrecords} type TTest = record public a, b: LongInt; public type TSubType = record public const Test: TTest = (a: 42; b: 21); end; end; begin end.