testsuite/gnat.dg/warn19.ads

with Warn19_Pkg; use Warn19_Pkg;

package Warn19 is
   P_Data : Bits;
   procedure Setup;
end Warn19;