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/] [access3.ads] - Diff between revs 304 and 338

Rev 304	Rev 338

`package access3 is`	`package access3 is`
`type IT is limited interface;`	`type IT is limited interface;`
`type T is limited new IT with null record;`	`type T is limited new IT with null record;`

`type T2 is tagged limited null record;`	`type T2 is tagged limited null record;`

`procedure Op`	`procedure Op`
`(Obj_T2 : in out T2;`	`(Obj_T2 : in out T2;`
`Obj_IT : not null access IT'Class);`	`Obj_IT : not null access IT'Class);`
`end access3;`	`end access3;`