Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/iface_test.ads @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
package Iface_Test is type Iface_1 is interface; type Iface_2 is interface; procedure Prepare_Select (DB : Iface_1; Iter : in out Iface_2'Class) is abstract; type DT_1 is new Iface_1 with null record; type Iterator is new Iface_2 with record More : Boolean; end record; overriding procedure Prepare_Select (DB : DT_1; Iter : in out Standard.Iface_Test.Iface_2'Class); end;