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/] [aggr11_pkg.ads] - Rev 310
Go to most recent revision | Compare with Previous | Blame | View Log
package Aggr11_Pkg is type Error_Type is (No_Error, Error); type Rec (Kind : Error_Type := No_Error) is record case Kind is when Error => null; when others => B : Boolean; end case; end record; type Arr is array (1..6) of Rec; end Aggr11_Pkg;
Go to most recent revision | Compare with Previous | Blame | View Log