3 type Int is new Integer;
10 pragma Atomic (Timer1);
13 pragma Atomic (Timer2);
15 type Arr1 is array (1..8) of Int;
18 type Arr2 is array (1..8) of Integer;
19 pragma Atomic_Components (Arr2);
25 pragma Atomic (Timer1);
28 pragma Atomic (Timer2);
32 type Int_Ptr is access all Int;