ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/thunk2_pkg.ads

12 lines
192 B
Ada

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;