12 lines
192 B
Ada
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;
|