2 -- { dg-options "-gnatws" }
4 with Unchecked_Conversion;
7 -- Case (f) target type is biased, source is unbiased
10 type a is new integer range 0 .. 255;
13 type b is new integer range 200 .. 455;
22 function a2b is new Unchecked_Conversion (a,b);
31 -- Case (g) target type is biased, source object is biased
34 type a is new integer range 1 .. 256;
37 type b is new integer range 1 .. 65536;
46 function a2b is new Unchecked_Conversion (a,b);