mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 01:09:27 +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 -
19 lines
226 B
ObjectPascal
19 lines
226 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tb0262;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch advancedrecords}
|
|
|
|
type
|
|
TTest = record
|
|
public
|
|
a, b: LongInt;
|
|
public const
|
|
Test: array[0..1] of TTest = ((a: 42; b: 21), (a: 21; b: 42));
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|