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