1package 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
11end Uninit_Array_Pkg;
12