* fi.po: Update.

[official-gcc.git] / gcc / testsuite / gnat.dg / tagged_type_pkg.ads

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;