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/] [addr2_p.ads] - Diff between revs 304 and 338

Rev 304	Rev 338

`package addr2_p is`	`package addr2_p is`

`type Block is array (1 .. 9) of Integer;`	`type Block is array (1 .. 9) of Integer;`

`procedure Process (Blk : Block);`	`procedure Process (Blk : Block);`

`B1 : constant Block := Block'((1,2,3,4,5, others => 0));`	`B1 : constant Block := Block'((1,2,3,4,5, others => 0));`
`B2 : constant Block := (1,2,3,4,5, others => 0);`	`B2 : constant Block := (1,2,3,4,5, others => 0);`
`end;`	`end;`