2 package body Enclosing_Record_Reference is
6 function F1 (x: integer) return T is begin return R; end;
7 function F2 (x: T) return integer is begin return 0; end;
8 function F3 (x: T) return T is begin return R; end;
9 function F4 (x: integer) return access T is begin return R'access; end;
10 function F5 (x: access T) return integer is begin return 0; end;
11 function F6 (x: access T) return access T is begin return R'access; end;
12 function F7 (x: T) return access T is begin return R'access; end;
13 function F8 (x: access T) return T is begin return R; end;
24 end Enclosing_Record_Reference;