Subversion Repositories openrisc

-- { dg-do run }

-- { dg-do run }

procedure interface2 is

procedure interface2 is

 package Types is

 package Types is

    type Iface     is synchronized interface;

    type Iface     is synchronized interface;

    type Any_Iface is access all Iface'Class;

    type Any_Iface is access all Iface'Class;

--  

--  

    protected type T_PO (S : Integer) is new Iface with end;

    protected type T_PO (S : Integer) is new Iface with end;

    task type T_Task    (R : Any_Iface);

    task type T_Task    (R : Any_Iface);

--  

--  

    Obj_1 : aliased T_PO (0);

    Obj_1 : aliased T_PO (0);

    Obj_2 : T_Task (Obj_1'Access); --  Test

    Obj_2 : T_Task (Obj_1'Access); --  Test

  end Types;

  end Types;

--

--

  package body Types is

  package body Types is

    protected body T_PO is end;

    protected body T_PO is end;

    task body T_Task    is begin null; end;

    task body T_Task    is begin null; end;

  end Types;

  end Types;

--

--

begin

begin

   null;

   null;

end;

end;