Subversion Repositories openrisc

-- { dg-do compile }

-- { dg-options "-g -O" }

with Ada.Unchecked_Conversion;

package body Unchecked_Convert8 is

   type T1 is range 0 .. 255;

   type T2 is

      record

         A : T1;

         B : T1;

      end record;

   for T2 use

      record

         A at 0 range 0 .. 7;

         B at 1 range 0 .. 7;

      end record;

   for T2'Size use 16;

   type T3 is range 0 .. (2**16 - 1);

   for  T3'Size use 16;

   function T2_TO_T3 is

      new Ada.Unchecked_Conversion (Source => T2, Target => T3);

   C : constant T3 := T2_TO_T3 (S => (A => 0, B => 0));

   procedure Dummy is begin null; end;

end Unchecked_Convert8;