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/] [discr3.ads] - Rev 384
Compare with Previous | Blame | View Log
package discr3 is type E is range 0..255; type R1 is range 1..5; type R2 is range 11..15; type S1 is array(R1 range <>) of E; type S2 is array(R2 range <>) of E; V1 : S1( 2..3) := (0,0); V2 : S2(12..13) := (1,1); subtype R3 is R1 range 2..3; V3 : S1 (R3); end discr3;