URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [interface3.adb] - Rev 435
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } procedure interface3 is -- package Pkg is type Foo is interface; subtype Element_Type is Foo'Class; -- type Element_Access is access Element_Type; type Elements_Type is array (1 .. 1) of Element_Access; type Elements_Access is access Elements_Type; -- type Vector is tagged record Elements : Elements_Access; end record; -- procedure Test (Obj : Vector); end; -- package body Pkg is procedure Test (Obj : Vector) is Elements : Elements_Access := new Elements_Type; -- begin Elements (1) := new Element_Type'(Obj.Elements (1).all); end; end; -- begin null; end;
Go to most recent revision | Compare with Previous | Blame | View Log