URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [volatile2.adb] - Rev 319
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-gnatws" } package body volatile2 is procedure Copy is R : Result; M : Integer; subtype Get_Data is Command_Data (Get, R.Data'Last); begin declare G : Get_Data; for G'Address use M'Address; begin for I in 1 .. R.Data'Last loop G.Data (I) := (Time => R.Data (I).Time); end loop; end; end; end volatile2;
Go to most recent revision | Compare with Previous | Blame | View Log