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/] [biased_uc.adb] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } -- { dg-options "-gnatws" } with Unchecked_Conversion; procedure biased_uc is begin -- Case (f) target type is biased, source is unbiased declare type a is new integer range 0 .. 255; for a'size use 8; type b is new integer range 200 .. 455; for b'size use 8; av : a; bv : b; for av'size use 8; for bv'size use 8; function a2b is new Unchecked_Conversion (a,b); begin bv := a2b (200); if bv = 200 then raise Program_Error; end if; end; -- Case (g) target type is biased, source object is biased declare type a is new integer range 1 .. 256; for a'size use 16; type b is new integer range 1 .. 65536; for b'size use 16; av : a; bv : b; for av'size use 8; for bv'size use 16; function a2b is new Unchecked_Conversion (a,b); begin bv := a2b (1); if bv /= 2 then raise Program_Error; end if; end; end;
Go to most recent revision | Compare with Previous | Blame | View Log