path: root/fpcsrc/tests/tbs/tb0461.pp

{ %version=1.1 }
{ %recompile }

uses ub0461;

procedure p;
begin
  p1;
end;

begin
  p;
end.