Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/aggr3.adb @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { 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;