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