1package Pack9 is
2
3  type R1 is record
4    I : Integer;
5    C : Character;
6  end record;
7
8  type R2 is record
9    I1, I2 : Integer;
10    A : R1;
11  end record;
12  pragma Pack(R2);
13
14  type R2_Ptr is access all R2;
15
16  procedure Copy (X, Y : R2_Ptr);
17
18end Pack9;
19