package P is

   procedure Has_Pre with Pre => True;

   generic
   procedure Has_Post with Post => True;

   procedure No_Contract with Inline;

end P;
