gcc/testsuite/gnat.dg/opt50_pkg.ads

   1 package Opt50_Pkg is
   2
   3    type Enum is (One, Two, Three);
   4    for Enum'Size use 16;
   5
   6    type Enum_Boolean_Array is array (Enum range <>) of Boolean;
   7
   8    procedure Get (Kind : String; Result : out Enum; Success : out Boolean);
   9
  10    procedure Set (A : Enum_Boolean_Array);
  11
  12 end Opt50_Pkg;