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/] [array1.adb] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-gnatws" } package body array1 is subtype Small is Integer range 1 .. MAX; type LFT is record RIC_ID : RIC_TYPE; end record; LF : array (RIC_TYPE, Small) of LFT; procedure Foo (R : RIC_TYPE) is L : Small; T : LFT renames LF (R, L); begin Start_Timer (T'ADDRESS); end; procedure Bar (A : Integer; R : RIC_TYPE) is S : LFT renames LF (R, A); begin null; end; procedure Start_Timer (Q : SYSTEM.ADDRESS) is begin null; end; end array1;
Go to most recent revision | Compare with Previous | Blame | View Log