URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [return2.ads] - Rev 699
Go to most recent revision | Compare with Previous | Blame | View Log
package Return2 is type Kind_T is (One, Two); type T is array (Kind_T) of Boolean; type Result_Internal_T (Member : Boolean := False) is record case Member is when True => Data : Kind_T := Kind_T'First; when False => null; end case; end record; function Value (Img : String) return T; end Return2;
Go to most recent revision | Compare with Previous | Blame | View Log