mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 19:28:13 +02:00
18 lines
194 B
ObjectPascal
18 lines
194 B
ObjectPascal
{ %opt=-O-3 -Oonoconstprop }
|
|
{ %result=201 }
|
|
|
|
{$inline on}
|
|
{$r+}
|
|
|
|
procedure test(l: longint); inline;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
a: array[0..0] of byte;
|
|
i: longint;
|
|
begin
|
|
i:=1345;
|
|
test(a[i]);
|
|
end.
|