URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [unchecked_union.ads] - Rev 823
Go to most recent revision | Compare with Previous | Blame | View Log
-- PR ada/28591 -- Reported by Martin Michlmayr <tbm@cyrius.com> -- { dg-do compile } -- { dg-options "-g" } with Interfaces; use Interfaces; package Unchecked_Union is type Mode_Type is (Mode_B2); type Value_Union (Mode : Mode_Type := Mode_B2) is record case Mode is when Mode_B2 => B2 : Integer_32; end case; end record; pragma Unchecked_Union (Value_Union); end Unchecked_Union;
Go to most recent revision | Compare with Previous | Blame | View Log