Subversion Repositories openrisc

package Sync_Iface_Test is

   type Iface is limited interface;

   function First (Obj : Iface) return Natural is abstract;

   protected type Buffer is new Iface with

      procedure Dummy;

   end;

   overriding function First (Obj : Buffer) return Natural;

   procedure Do_Test (Dummy : Natural; Item  : Buffer);

end;