Unit tbs0244;

{test also with -So !!!}

Interface

Procedure t(a,b: longint);

Implementation

Procedure t(a,b: longint);
begin
end;

Procedure t2;

  Procedure t(l: Longint);
  Begin
  End;

Begin
End;

End.
