URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [self1.adb] - Rev 304
Compare with Previous | Blame | View Log
-- { dg-do compile } procedure Self1 is type Event; type Link (E : access Event) is limited record Val : Integer; end record; type Ptr is access all Event; type Event is tagged limited record Inner : Link (Event'access); Size : Integer; end record; Obj2 : Ptr := new Event'(Inner => (Event'access, 15), Size => Link'size); begin null; end;