mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
18 lines
195 B
ObjectPascal
18 lines
195 B
ObjectPascal
{ %norun }
|
|
|
|
{$inline on}
|
|
program TEST;
|
|
{$EXTENDEDSYNTAX OFF}
|
|
VAR
|
|
IO: WORD; { or LONGINT if wanted }
|
|
|
|
function test: word; inline;
|
|
begin
|
|
test:=1;
|
|
writeln(io);
|
|
end;
|
|
|
|
BEGIN
|
|
IO:=test;
|
|
END.
|