mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 14:31:59 +02:00
9611c3df52
pexpr.pas, postfixoperators: * try_type_helper: also allow type helpers for block type bt_const + added test git-svn-id: trunk@29176 -
18 lines
171 B
ObjectPascal
18 lines
171 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw25606;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
type
|
|
TValueInt32Helper = record helper for Int32
|
|
const
|
|
C{: Int32} = 0;
|
|
end;
|
|
|
|
var
|
|
I: Int32 = Int32.C;
|
|
begin
|
|
end.
|
|
|