separate (B.C)
package body D is
   procedure Bar is
      A : Pouet := A2;
      pragma Test_Statement;
   begin
      null;
   end Bar;
end D;
