3 procedure interface2
is
5 type Iface
is synchronized interface
;
6 type Any_Iface
is access all Iface
'Class;
8 protected type T_PO
(S
: Integer) is new Iface
with end;
9 task type T_Task
(R
: Any_Iface
);
11 Obj_1
: aliased T_PO
(0);
12 Obj_2
: T_Task
(Obj_1
'Access); -- Test
16 protected body T_PO
is end;
17 task body T_Task
is begin null; end;