1package Opt90a_Pkg is 2 3 type Rec is record 4 A : Short_Short_Integer; 5 B : Integer; 6 C : String (1 .. 12); 7 end record; 8 pragma Pack (Rec); 9 for Rec'Alignment use 1; 10 11 type Data is tagged record 12 R : Rec; 13 end record; 14 15end Opt90a_Pkg; 16