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/] [aggr3.adb] - Rev 316

Go to most recent revision | Compare with Previous | Blame | View Log

--  { dg-do run }
 
with Ada.Tags;    use Ada.Tags;
with Ada.Text_IO; use Ada.Text_IO;
procedure aggr3 is
   package Pkg is
      type Element is interface;
      type Event is tagged record
         V1 : Natural;
         V2 : Natural;
      end record;
      function Create return Event;
      type D_Event is new Event and Element with null record;
      function Create return D_Event;
   end;
   package body Pkg is
      function Create return Event is
         Obj : Event;
      begin
         Obj.V1 := 0;
         return Obj;
      end;
      function Create return D_Event is
      begin
         return (Event'(Create) with null record);
      end;
   end;
   use Pkg;
   procedure CW_Test (Obj : Element'Class) is
      S : Constant String := Expanded_Name (Obj'Tag);
   begin
      null;
   end;
begin
   CW_Test (Create);
end;
 

Go to most recent revision | 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.