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