URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [aggr12.ads] - Rev 696
Compare with Previous | Blame | View Log
package Aggr12 is type Hair_Color_Type is (Black, Brown, Blonde, Grey, White, Red); type Rec is record I1, I2 : Hair_Color_Type; end record; A : constant Rec := (Black, Blonde); procedure Print (Data : String); procedure Test; end Aggr12;