URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [bit_packed_array2.adb] - Diff between revs 304 and 338

Rev 304	Rev 338
`-- { dg-do compile }`	`-- { dg-do compile }`
`-- { dg-options "-gnatws" }`	`-- { dg-options "-gnatws" }`

`procedure Bit_Packed_Array2 is`	`procedure Bit_Packed_Array2 is`

`type Bit_Array is array (integer range <>) of Boolean;`	`type Bit_Array is array (integer range <>) of Boolean;`
`pragma Pack(Bit_Array);`	`pragma Pack(Bit_Array);`

`b1 : Bit_Array(1..64);`	`b1 : Bit_Array(1..64);`
`b2 : Bit_array(1..64);`	`b2 : Bit_array(1..64);`
`res : Bit_array(1..64);`	`res : Bit_array(1..64);`

`begin`	`begin`

`if (not((not b1) or (not b2))) /= res then`	`if (not((not b1) or (not b2))) /= res then`
`null;`	`null;`
`end if;`	`end if;`

`end;`	`end;`