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/] [test_unknown_discrs.adb] - Rev 322
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } procedure Test_Unknown_Discrs is package Display is type Component_Id (<>) is limited private; Deferred_Const : constant Component_Id; private type Component_Id is (Clock); type Rec1 is record C : Component_Id := Deferred_Const; end record; Priv_Cid_Object : Component_Id := Component_Id'First; type Rec2 is record C : Component_Id := Priv_Cid_Object; end record; Deferred_Const : constant Component_Id := Priv_Cid_Object; end Display; begin null; end Test_Unknown_Discrs;
Go to most recent revision | Compare with Previous | Blame | View Log