generic
   type Foo is private;
package Test_Generic is

   ---------
   -- Bar --
   ---------

   procedure Bar
      (F : Foo;
       I : Integer;
       J : Integer;
       K, L : Integer);
   --  Bar

end Test_Generic;
