--  { dg-do compile }
package body Predicate14 is
    procedure Dummy is null;
end Predicate14;