Subversion Repositories openrisc

-- { dg-do run }

procedure Sizetype4 is

   type Float_Array is array (Integer range <>) of Float;

   NoFloats : Float_Array (1 .. 0);

   procedure Q (Results : Float_Array := NoFloats) is

      type Reply_Msg is

         record

            Request_Id : Integer;

            Status     : Integer;

            Data       : Float_Array (Results'Range);

         end record;

   begin

      if Reply_Msg'Size /= 64 then

        raise Program_Error;

      end if;

   end;

begin

   Q;

end;