1 package Enclosing_Record_Reference is
5 F1: access function(x: integer) return T;
6 F2: access function(x: T) return integer; --??
7 F3: access function(x: T) return T; --??
8 F4: access function(x: integer) return access T; --??
9 F5: access function(x: access T) return integer;
10 F6: access function(x: access T) return access T;
11 F7: access function(x: T) return access T; --??
12 F8: access function(x: access T) return T;
15 end Enclosing_Record_Reference;