blob: 123dfdc67e3be991636d81d59d995304069a55ec [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnata -gnatwa" }
package body Warn21 is
procedure Foo is null;
end Warn21;