{ %OPT=-Sh}
{$MODE OBJFPC}
{$OPTIMIZATION DFA}
{$HINTS ON}
program test;

procedure TestText(var F: longint);
begin
  TestText(F);
end;

begin
end.