blob: 566632a270d91e4fff3bc3eecb6a80f5b3608c4b [file] [log] [blame]
package Uninit_Array_Pkg Is
type Rec is record
B1, B2, B3, B4: Boolean;
end record;
type Arr is array (Boolean) of Rec;
function F (R : Rec) return Integer;
end Uninit_Array_Pkg;