URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [aggr3.ads] - Rev 700
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } with Aggr3_Pkg; use Aggr3_Pkg; package Aggr3 is type Enum is (One); type R (D : Enum := One) is record case D is when One => The_T : T; end case; end record; My_R : R := (D => One, The_T => My_T); end Aggr3;
Go to most recent revision | Compare with Previous | Blame | View Log