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/] [rep_clause3.adb] - Rev 328
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-gnatws" } procedure Rep_Clause3 is subtype U_16 is integer range 0..2**16-1; type TYPE1 is range 0 .. 135; for TYPE1'size use 14; type TYPE2 is range 0 .. 262_143; for TYPE2'size use 18; subtype TYPE3 is integer range 1 .. 21*6; type ARR is array (TYPE3 range <>) of boolean; pragma Pack(ARR); subtype SUB_ARR is ARR(1 .. 5*6); OBJ : SUB_ARR; type R is record N : TYPE1; L : TYPE2; I : SUB_ARR; CRC : U_16; end record; for R use record at mod 4; N at 0 range 0 .. 13; L at 0 range 14 .. 31; I at 4 range 2 .. 37; CRC at 8 range 16 .. 31; end record; for R'size use 12*8; type SUB_R is array (1..4) of R; T : SUB_R; begin if OBJ = T(1).I then raise Program_Error; end if; end;
Go to most recent revision | Compare with Previous | Blame | View Log