* utils.c (finish_record_type): Clear DECL_BIT_FIELD on sufficiently

[pf3gnuchains/gcc-fork.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;