aliased1.adb

来自「用于进行gcc测试」· ADB 代码 · 共 35 行

--  { 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;