URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

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

`procedure Array9 is`	`procedure Array9 is`

`V1 : String(1..10) := "1234567890";`	`V1 : String(1..10) := "1234567890";`
`V2 : String(1..-1) := "";`	`V2 : String(1..-1) := "";`

`procedure Compare (S : String) is`	`procedure Compare (S : String) is`
`begin`	`begin`
`if S'Size /= 8*S'Length then`	`if S'Size /= 8*S'Length then`
`raise Program_Error;`	`raise Program_Error;`
`end if;`	`end if;`
`end;`	`end;`

`begin`	`begin`
`Compare ("");`	`Compare ("");`
`Compare ("1234");`	`Compare ("1234");`
`Compare (V1);`	`Compare (V1);`
`Compare (V2);`	`Compare (V2);`
`end;`	`end;`