mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
dcc2354760
handled correctly there anyway (they were silently truncated to 32-bit) git-svn-id: trunk@27061 -
19 lines
302 B
ObjectPascal
19 lines
302 B
ObjectPascal
{ %FAIL }
|
|
program tb0239;
|
|
|
|
{$MODE objfpc}
|
|
|
|
type
|
|
TMyClass = class
|
|
function GetMyProperty(Index: Integer): Integer;
|
|
property MyProperty: Integer index 10000000000000000 read GetMyProperty;
|
|
end;
|
|
|
|
function TMyClass.GetMyProperty(Index: Integer): Integer;
|
|
begin
|
|
Result := 10;
|
|
end;
|
|
|
|
begin
|
|
end.
|