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