URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [access_test.adb] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } procedure Access_Test is type T1 is tagged null record; procedure Proc_1 (P : access T1'Class) is type Ref is access T1'Class; X : Ref := new T1'Class'(P.all); -- Should always work (no exception) begin null; end; procedure Proc_2 is type T2 is new T1 with null record; X2 : aliased T2; begin Proc_1 (X2'access); declare type T3 is new T1 with null record; X3 : aliased T3; begin Proc_1 (X3'access); end; end; begin Proc_2; end;
Go to most recent revision | Compare with Previous | Blame | View Log