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