gcc/testsuite/gnat.dg/predicate7.adb

--  { dg-do compile }
--  { dg-options "-gnata" }

package body Predicate7 is
   procedure Foo is null;
end;