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.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [aggr11_pkg.ads] - Rev 304
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