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/] [test_8bitlong_overflow.adb] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } -- { dg-options "-gnato" } procedure Test_8bitlong_Overflow is pragma Unsuppress (Overflow_Check); generic type T is range <>; package G is LO : T := T'first; ONE : T := T(1); type A2 is array(T range <>) of T; subtype SA2 is A2(LO..4*ONE); ARRAY_AGGR : SA2 := SA2'(others=>LO + 1); POS_1 : T := T'pos(LO*ONE); end; type T is new LONG_INTEGER range -1..10; for T'size use 8; package P is new G (T); begin null; end;
Go to most recent revision | Compare with Previous | Blame | View Log