OpenCores
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 304

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;    
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.