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.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [iface_test.ads] - Diff between revs 304 and 338

Rev 304	Rev 338
`package Iface_Test is`	`package Iface_Test is`
`type Iface_1 is interface;`	`type Iface_1 is interface;`
`type Iface_2 is interface;`	`type Iface_2 is interface;`

`procedure Prepare_Select`	`procedure Prepare_Select`
`(DB : Iface_1;`	`(DB : Iface_1;`
`Iter : in out Iface_2'Class) is abstract;`	`Iter : in out Iface_2'Class) is abstract;`

`type DT_1 is new Iface_1 with null record;`	`type DT_1 is new Iface_1 with null record;`

`type Iterator is new Iface_2 with record`	`type Iterator is new Iface_2 with record`
`More : Boolean;`	`More : Boolean;`
`end record;`	`end record;`

`overriding procedure Prepare_Select`	`overriding procedure Prepare_Select`
`(DB : DT_1;`	`(DB : DT_1;`
`Iter : in out Standard.Iface_Test.Iface_2'Class);`	`Iter : in out Standard.Iface_Test.Iface_2'Class);`
`end;`	`end;`