OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [discr3.ads] - Rev 700

Go to most recent revision | 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;
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.