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

Rev 304	Rev 384
`package Array13 is`	`package Array13 is`

`Max : Natural := 1;`	`Max : Natural := 1;`

`type Arr is array (Natural range 0..Max) of Natural;`	`type Arr is array (Natural range 0..Max) of Natural;`

`type T is record`	`type T is record`
`A : Arr := (others => 0);`	`A : Arr := (others => 0);`
`end record;`	`end record;`

`procedure Foo;`	`procedure Foo;`

`end Array13;`	`end Array13;`