1--  { dg-do compile }
2--  { dg-options "-gnata" }
3
4package body Predicate7 is
5   procedure Foo is null;
6end;
7