1-- { dg-do compile } 2-- { dg-options "-gnatw.x -gnatd.a" } 3package body Warn31 is 4 procedure Dummy is null; 5end Warn31; 6