Subversion Repositories openrisc

-- { dg-do run }
 
procedure Sizetype2 is
 
  function Ident_Int (X : Integer) return Integer is
  begin
     return X;
  end;
 
  type A is array (Integer range <>) of Boolean;
  subtype T1 is A (Ident_Int (- 6) .. Ident_Int (Integer'Last - 4));
  subtype T2 is A (- 6 .. Ident_Int (Integer'Last - 4));
  subtype T3 is A (Ident_Int (- 6) .. Integer'Last - 4);
 
begin
  if T1'Size /= 17179869200 then
    raise Program_Error;
  end if;
 
  if T2'Size /= 17179869200 then
    raise Program_Error;
  end if;
 
  if T3'Size /= 17179869200 then
    raise Program_Error;
  end if;
end;