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/] [align_check.adb] - Rev 322
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } with System; procedure align_check is N_Allocated_Buffers : Natural := 0; -- function New_Buffer (N_Bytes : Natural) return System.Address is begin N_Allocated_Buffers := N_Allocated_Buffers + 1; return System.Null_Address; end; -- Buffer_Address : constant System.Address := New_Buffer (N_Bytes => 8); N : Natural; for N'Address use Buffer_Address; -- begin if N_Allocated_Buffers /= 1 then raise Program_Error; end if; end;
Go to most recent revision | Compare with Previous | Blame | View Log