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