procedure Foo.Subp is
begin
   pragma Test (I);
   pragma Test (Foo.I);
end Foo.Subp;
