mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:19:33 +02:00
6574f0974a
U compiler/pdecvar.pas --- Recording mergeinfo for merge of r40284 into '.': U . --- Merging r40285 into '.': D tests/webtbs/tw27880.pp A tests/webtbf/tw27880.pp A tests/tbf/tb0261.pp A tests/tbf/tb0262.pp A tests/tbf/tb0263.pp A tests/tbf/tb0264.pp A tests/tbf/tb0265.pp U compiler/pdecl.pas --- Recording mergeinfo for merge of r40285 into '.': G . # revisions: 40284,40285 git-svn-id: branches/fixes_3_2@40289 -
22 lines
242 B
ObjectPascal
22 lines
242 B
ObjectPascal
{ %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.
|