gcc/testsuite/gnat.dg/thunk2_pkg.ads

package Thunk2_Pkg is

  type Root is tagged record
    A : Integer;
  end record;

  type I is interface;

  function Element (Self : I; Name : String) return I is abstract;

end Thunk2_Pkg;