blob: 119c19035c26630522b0627b8802ecceb239239a [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnata" }
package body Predicate7 is
procedure Foo is null;
end;