gcc/testsuite/gnat.dg/warn19_pkg.ads

package Warn19_Pkg is

   type Bits is array (1 .. 4) of Boolean;
   procedure Init (X : out Bits);

end Warn19_Pkg;