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/] [specs/] [pack6.ads] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } with Ada.Finalization; with Pack6_Pkg; package Pack6 is package Eight_Bits is new Pack6_Pkg (8); type Some_Data is record Byte_1 : Eight_Bits.Object; Byte_2 : Eight_Bits.Object; end record; for Some_Data use record Byte_1 at 0 range 0 .. 7; Byte_2 at 1 range 0 .. 7; end record; type Top_Object is new Ada.Finalization.Controlled with record Data : Some_Data; end record; end Pack6;
Go to most recent revision | Compare with Previous | Blame | View Log