Subversion Repositories openrisc

-- { dg-do run }
 
procedure Array12 is
 
  function N return Integer is
  begin
    return 0;
  end;
 
  subtype Element is String (1 .. N);
  type Ptr is access all Element;
  type Vector is array (Positive range <>) of aliased Element;
 
  V : Vector (1..2);
 
begin
  if Ptr'(V(1)'Access) = V(2)'Access then
    raise Program_Error;
  end if;
end;