1package Opt81 is 2 3 type String_Access is access String; 4 5 type Rec is record 6 A : String_Access; 7 end record; 8 9 for Rec use record 10 A at 0 range 0 .. (Standard'Word_Size - 1); 11 end record; 12 13 procedure Copy(From, To : Rec); 14 15end Opt81; 16