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.0rc4/] [gcc/] [testsuite/] [gnat.dg/] [enclosing_record_reference.ads] - Diff between revs 304 and 519

Rev 304	Rev 519
`package Enclosing_Record_Reference is`	`package Enclosing_Record_Reference is`
`pragma elaborate_body;`	`pragma elaborate_body;`

`type T is record`	`type T is record`
`F1: access function(x: integer) return T;`	`F1: access function(x: integer) return T;`
`F2: access function(x: T) return integer; --??`	`F2: access function(x: T) return integer; --??`
`F3: access function(x: T) return T; --??`	`F3: access function(x: T) return T; --??`
`F4: access function(x: integer) return access T; --??`	`F4: access function(x: integer) return access T; --??`
`F5: access function(x: access T) return integer;`	`F5: access function(x: access T) return integer;`
`F6: access function(x: access T) return access T;`	`F6: access function(x: access T) return access T;`
`F7: access function(x: T) return access T; --??`	`F7: access function(x: T) return access T; --??`
`F8: access function(x: access T) return T;`	`F8: access function(x: access T) return T;`
`end record;`	`end record;`

`end Enclosing_Record_Reference;`	`end Enclosing_Record_Reference;`