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;