2 type Iface_1 is interface;
3 type Iface_2 is interface;
5 procedure Prepare_Select
7 Iter : in out Iface_2'Class) is abstract;
9 type DT_1 is new Iface_1 with null record;
11 type Iterator is new Iface_2 with record
15 overriding procedure Prepare_Select
17 Iter : in out Standard.Iface_Test.Iface_2'Class);