testsuite/gnat.dg/predicate6.adb

--  { dg-do compile }

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