gcc/testsuite/gnat.dg/predicate14.adb

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