--EMACSCMD:(setq skip-recase-test t)
package body Adacore_D218_002_2 is

   package body BUFFER_DEFINITION is

      package body POOL_BUFFER is
         Dummy : Boolean;
         pragma Unreferenced (Dummy);
      begin
         null;
      end POOL_BUFFER;

   end BUFFER_DEFINITION;
   --
end Adacore_D218_002_2;
