URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [iface_test.ads] - Rev 801
Go to most recent revision | Compare with Previous | Blame | View Log
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;
Go to most recent revision | Compare with Previous | Blame | View Log