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/] [pack11.adb] - Rev 328
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } -- { dg-options "-gnatws" } with System; procedure Pack11 is type R1 is record A1, A2, A3 : System.Address; end record; type R2 is record C : Character; R : R1; end record; pragma Pack (R2); procedure Dummy (R : R1) is begin null; end; procedure Init (X : R2) is begin Dummy (X.R); end; My_R2 : R2; begin Init (My_R2); end;
Go to most recent revision | Compare with Previous | Blame | View Log