5 type Unsigned_32_T is mod 2 ** 32;
6 for Unsigned_32_T'Size use 32;
8 type Id_T is (One, Two, Three);
10 type Array_T is array (Id_T) of Unsigned_32_T;
11 pragma Atomic_Components (Array_T);
13 A : Array_T := (others => 0);
15 function Get_Array return Array_T is