gcc/testsuite/gnat.dg/enclosing_record_reference.ads

   1 package Enclosing_Record_Reference is
   2   pragma elaborate_body;
   3
   4     type T is record
   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;
  13     end record;
  14
  15 end Enclosing_Record_Reference;