URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [double_record_extension1.ads] - Diff between revs 149 and 154

Rev 149	Rev 154
`package double_record_extension1 is`	`package double_record_extension1 is`

`type T1(n: natural) is tagged record`	`type T1(n: natural) is tagged record`
`s1: string (1..n);`	`s1: string (1..n);`
`end record;`	`end record;`
`type T2(j,k: natural) is new T1(j) with record`	`type T2(j,k: natural) is new T1(j) with record`
`s2: string (1..k);`	`s2: string (1..k);`
`end record;`	`end record;`
`type T3 is new T2 (10, 10) with null record;`	`type T3 is new T2 (10, 10) with null record;`

`end double_record_extension1;`	`end double_record_extension1;`