URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [aggr15.adb] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-gnatws" } package body Aggr15 is function CREATE return DATA_T is D : DATA_T; begin return D; end; function ALL_CREATE return ALL_DATA_T is C : constant ALL_DATA_T := (others => (others => Create)); begin return C; end; end Aggr15;
Go to most recent revision | Compare with Previous | Blame | View Log