--  { dg-do compile }

package body Predicate5 is
   procedure Foo is null;
end Predicate5;