gcc-4.9/gcc/testsuite/gnat.dg/tagged_type_pkg.ads


1
2
3
4
5
6
7
8
9

package Tagged_Type_Pkg is
      
   type TT is tagged limited record
      Self : access TT'Class := TT'Unchecked_Access;
   end record;
         
   function Pass_TT_Access (Obj : access TT'Class) return access TT'Class;
   
end Tagged_Type_Pkg;