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