mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 05:28:15 +02:00
16 lines
180 B
ObjectPascal
16 lines
180 B
ObjectPascal
{ %norun }
|
|
|
|
program TestLocal;
|
|
var i: longint;
|
|
begin
|
|
{$R+}
|
|
{$ifopt R+}
|
|
{$define local_RangeCheck}
|
|
{$R-}
|
|
{$endif}
|
|
i:= longword( -1);
|
|
{$ifdef local_RangeCheck}
|
|
{$R+}
|
|
{$endif}
|
|
end.
|