procedure Foo is

   procedure Bar (A, BBBBB, CCCCCCC : Integer; DDD : Float);

   procedure Bar (A, BBBBB, CCCCCCC : Integer; DDD : Float) is
   begin
      null;
   end Bar;

begin
   Bar 
end Foo;
