mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 05:39:24 +02:00
14 lines
148 B
ObjectPascal
14 lines
148 B
ObjectPascal
{ %OPT=-Sh}
|
|
{$MODE OBJFPC}
|
|
{$OPTIMIZATION DFA}
|
|
{$HINTS ON}
|
|
program test;
|
|
|
|
procedure TestText(var F: longint);
|
|
begin
|
|
TestText(F);
|
|
end;
|
|
|
|
begin
|
|
end.
|