Subversion Repositories openrisc

-- { dg-do run }

procedure Packed_Subtype is

   subtype Ubyte is Integer range 0 .. 255;

   type Packet (Id : Ubyte) is record

      A, B : Ubyte;

   end record;

   pragma Pack (Packet);

   subtype My_Packet is Packet (Id => 1);

   MP : My_Packet;

begin

   MP.A := 1;

   MP.B := 2;

   if MP.A /= 1 or else MP.B /= 2 then

      raise Program_Error;

   end if;

end;