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.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [array6.adb] - Diff between revs 304 and 384

Rev 304	Rev 384
`-- { dg-do run }`	`-- { dg-do run }`

`with Interfaces; use Interfaces;`	`with Interfaces; use Interfaces;`

`procedure Array6 is`	`procedure Array6 is`

`type buf_t is array (unsigned_32 range <>) of character;`	`type buf_t is array (unsigned_32 range <>) of character;`
`type v_str_t (first, last : unsigned_32) is`	`type v_str_t (first, last : unsigned_32) is`
`record`	`record`
`buf : buf_t (first .. last) := (others => ' ');`	`buf : buf_t (first .. last) := (others => ' ');`
`end record;`	`end record;`
`type v_str_ptr_t is access all v_str_t;`	`type v_str_ptr_t is access all v_str_t;`

`v_str : v_str_ptr_t;`	`v_str : v_str_ptr_t;`

`function build_v_str (f, l : unsigned_32) return v_str_ptr_t is`	`function build_v_str (f, l : unsigned_32) return v_str_ptr_t is`
`vp : v_str_ptr_t := new v_str_t (f, l);`	`vp : v_str_ptr_t := new v_str_t (f, l);`
`begin`	`begin`
`return vp;`	`return vp;`
`end;`	`end;`

`begin`	`begin`
`v_str := build_v_str (unsigned_32'last/2 - 256,`	`v_str := build_v_str (unsigned_32'last/2 - 256,`
`unsigned_32'last/2 + 1024*1024);`	`unsigned_32'last/2 + 1024*1024);`
`end;`	`end;`