Subversion Repositories openrisc

-- { dg-do compile }
 
package Atomic1 is
 
  type Arr is array (Integer range <>) of Boolean;
  type UA is access all Arr;
 
  U : UA;
  pragma Atomic (U);  -- { dg-error "atomic access" }
 
  type R is record
    U : UA;
    pragma Atomic (U);  -- { dg-error "atomic access" }
  end record;
 
end Atomic1;