URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [discr16_g.ads] - Rev 328
Go to most recent revision | Compare with Previous | Blame | View Log
generic type T is (<>); with function MAX_ADD(X : T; I : INTEGER) return T; package Discr16_G is LO : T := T'val(T'pos(T'first)); HI : T := T'val(T'pos(MAX_ADD(LO, 15))); type A2 is array(T range <>) of T; type R2(D : T) is record C : A2(LO..D); end record; end;
Go to most recent revision | Compare with Previous | Blame | View Log