OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [aliased1.adb] - Rev 304

Compare with Previous | Blame | View Log

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.