URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc4/] [gcc/] [testsuite/] [gnat.dg/] [test_unknown_discrs.adb] - Rev 519
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;