Subversion Repositories openrisc

-- { dg-do compile }
 
with Unchecked_Conversion;
 
package Atomic5 is
 
  type Byte is mod 2 ** 8;
  for Byte'Size use 8;
 
  type Unsigned_32 is mod 2 ** 32;
  for Unsigned_32'Size use 32;
 
  type R is record
    A,B,C,D : Byte;
  end record;
  for R'Alignment use 4;
  pragma Atomic (R);
 
  function Conv is new Unchecked_Conversion (R, Unsigned_32);
 
  procedure Proc1;
 
  procedure Proc2;
 
end Atomic5;