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/] [specs/] [empty_variants.ads] - Rev 308
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-gnatdF" } package Empty_Variants is type Rec (D : Integer := 1) is record case D is when 1 => I : Integer; when 2 .. 5 => J : Integer; K : Integer; when 6 => null; when 7 .. 8 => null; when others => L : Integer; M : Integer; N : Integer; end case; end record; R : Rec; I : Integer := R.I; J : Integer := R.J; K : Integer := R.K; L : Integer := R.L; M : Integer := R.L; end Empty_Variants;
Go to most recent revision | Compare with Previous | Blame | View Log