Subversion Repositories openrisc

-- { dg-do compile }
 
procedure Atomic3 is
 
   type Unsigned_32_T is mod 2 ** 32;
   for Unsigned_32_T'Size use 32;
 
   type Id_T is (One, Two, Three);
 
   type Array_T is array (Id_T) of Unsigned_32_T;
   pragma Atomic_Components (Array_T);
 
   A : Array_T := (others => 0);
 
   function Get_Array return Array_T is
   begin
      return A;
   end;
 
   X : Array_T;
 
begin
   X := Get_Array;
end;