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