mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 02:28:14 +02:00
24 lines
348 B
ObjectPascal
24 lines
348 B
ObjectPascal
{$inline on}
|
|
procedure test(var a : longint;b : longint);inline;
|
|
|
|
begin
|
|
a:=32-b;
|
|
end;
|
|
|
|
procedure test2(var a : longint;b : longint);
|
|
|
|
begin
|
|
a:=32-b;
|
|
end;
|
|
|
|
var
|
|
a,b : longint;
|
|
begin
|
|
test2(a,16);
|
|
Writeln('a=',a,' should be 16');
|
|
if (a<>16) then halt(1);
|
|
test(a,16);
|
|
Writeln('a=',a,' should be 16');
|
|
if (a<>16) then halt(1);
|
|
end.
|