Subversion Repositories openrisc

--  { dg-do run }

with System;

procedure Protected_Self_Ref1 is

   protected type P is

      procedure Foo;

   end P;

   protected body P is

      procedure Foo is

         Ptr : access P;  -- here P denotes the type P

         T   : Integer;

         A   : System.Address;

      begin

         Ptr := P'Access; -- here P denotes the "this" instance of P

         T := P'Size;

         A := P'Address;

      end;

   end P;

   O : P;

begin

   O.Foo;

end Protected_Self_Ref1;