gcc/testsuite/gnat.dg/uninit_array_pkg.ads

   1 package Uninit_Array_Pkg Is
   2
   3   type Rec is record
   4     B1, B2, B3, B4: Boolean;
   5   end record;
   6
   7   type Arr is array (Boolean) of Rec;
   8
   9   function F (R : Rec) return Integer;
  10
  11 end Uninit_Array_Pkg;