URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [aggr11_pkg.ads] - Rev 696
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;