blob: 10a527b8d8106ffabd9243af93b6ba9a8562ebe1 [file] [log] [blame]
package Opt90a_Pkg is
type Rec is record
A : Short_Short_Integer;
B : Integer;
C : String (1 .. 12);
end record;
pragma Pack (Rec);
for Rec'Alignment use 1;
type Data is tagged record
R : Rec;
end record;
end Opt90a_Pkg;