Subversion Repositories openrisc

--  { dg-do compile }
--  { dg-options "-gnatws" }
 
procedure aliased1 is
 
  type E is (One, Two);
 
  type R (D : E := One) is record
    case D is
      when One =>
         I1 : Integer;
         I2 : Integer;
      when Two =>
         B1 : Boolean;
    end case;
  end record;
 
  type Data_Type is record
    Data : R;
  end record;
 
  type Array_Type is array (Natural range <>) of Data_Type;
 
  function Get return Array_Type is
    Ret : Array_Type (1 .. 2);
  begin
    return Ret;
  end;
 
  Object : aliased Array_Type := Get;
 
begin
  null;
end;