Subversion Repositories openrisc

-- { dg-do run }

-- { dg-do run }

with System;

with System;

procedure align_check is

procedure align_check is

   N_Allocated_Buffers : Natural := 0;

   N_Allocated_Buffers : Natural := 0;

--      

--      

   function New_Buffer (N_Bytes : Natural) return System.Address is

   function New_Buffer (N_Bytes : Natural) return System.Address is

   begin

   begin

      N_Allocated_Buffers := N_Allocated_Buffers + 1;

      N_Allocated_Buffers := N_Allocated_Buffers + 1;

      return System.Null_Address;

      return System.Null_Address;

   end;

   end;

--      

--      

   Buffer_Address : constant System.Address := New_Buffer (N_Bytes => 8);

   Buffer_Address : constant System.Address := New_Buffer (N_Bytes => 8);

   N : Natural;

   N : Natural;

   for N'Address use Buffer_Address;

   for N'Address use Buffer_Address;

--      

--      

begin

begin

   if N_Allocated_Buffers /= 1 then

   if N_Allocated_Buffers /= 1 then

      raise Program_Error;

      raise Program_Error;

   end if;

   end if;

end;

end;