URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [protected_self_ref1.adb] - Rev 384
Compare with Previous | Blame | View Log
-- { 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;