1package Volatile10_Pkg is
2
3   type Num is mod 2**9;
4
5   type Rec is record
6      B1  : Boolean;
7      N1  : Num;
8      B2  : Boolean;
9      N2  : Num;
10      B3  : Boolean;
11      B4  : Boolean;
12      B5  : Boolean;
13      B6  : Boolean;
14      B7  : Boolean;
15      B8  : Boolean;
16      B9  : Boolean;
17      B10 : Boolean;
18      B11 : Boolean;
19      B12 : Boolean;
20      B13 : Boolean;
21      B14 : Boolean;
22   end record;
23   pragma Pack (Rec);
24   for Rec'Size use 32;
25   pragma Volatile(Rec);
26
27   function F return Rec;
28
29end Volatile10_Pkg;
30