gcc/testsuite/gnat.dg/opt59_pkg.ads

   1 package Opt59_Pkg is
   2
   3   type Boolean_Vector is array (1 .. 8) of Boolean;
   4
   5   function Get_BV1 return Boolean_Vector;
   6
   7   function Get_BV2 return Boolean_Vector;
   8
   9   procedure Test (B : Boolean);
  10
  11 end Opt59_Pkg;