URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [pack5.adb] - Rev 329
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } procedure Pack5 is type Kind is (v1, v2, v3); type Error (k : Kind := Kind'First) is record case k is when v1 => null; when v2 => null; when Others => B : Boolean; end case; end record; pragma Pack (Error); for Error'Size use 16; No_Error: constant Error := (k => v2); type R (B : Boolean) is record E : Error; end record; pragma Pack(R); type Ptr is access R; C : Ptr := new R (True); begin C.E := No_Error; end;
Go to most recent revision | Compare with Previous | Blame | View Log