URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [array19.adb] - Rev 708
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } package body Array19 is function N return Integer is begin return 1; end; type Array_Type is array (1 .. N) of Float; type Enum is (One, Two); type Rec (D : Enum := Enum'First) is record case D is when One => null; when Two => A : Array_Type; end case; end record; procedure Proc is R : Rec; function F return Array_Type is begin return (others => 0.0); end F; begin R.A := F; end; end Array19;
Go to most recent revision | Compare with Previous | Blame | View Log