2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / uninit_array_pkg.ads
blob566632a270d91e4fff3bc3eecb6a80f5b3608c4b
1 package Uninit_Array_Pkg Is
3 type Rec is record
4 B1, B2, B3, B4: Boolean;
5 end record;
7 type Arr is array (Boolean) of Rec;
9 function F (R : Rec) return Integer;
11 end Uninit_Array_Pkg;