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/] [unchecked_convert3.adb] - Rev 384
Compare with Previous | Blame | View Log
-- { dg-do run } -- { dg-options "-gnatVa" } with Unchecked_Conversion; procedure Unchecked_Convert3 is type Word is range -(2**15) .. (2**15) - 1; type UWord is mod (2**16); function To_Word is new unchecked_conversion (UWord, Word); function F return UWord is begin return 65036; end; W : Word := To_Word(F); begin null; end;