17 lines
275 B
Ada
17 lines
275 B
Ada
|
package Opt90c_Pkg is
|
||
|
|
|
||
|
|
type Rec is record
|
||
|
|
D : String (1 .. 12);
|
||
|
|
B : Integer;
|
||
|
|
A : Short_Short_Integer;
|
||
|
|
C : Short_Integer;
|
||
|
|
end record;
|
||
|
|
pragma Pack (Rec);
|
||
|
|
for Rec'Alignment use 1;
|
||
|
|
|
||
|
|
type Data is tagged record
|
||
|
|
R : Rec;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
end Opt90c_Pkg;
|