Subversion Repositories openrisc_2011-10-31

-- { dg-do compile }

-- { dg-do compile }

with Unchecked_Conversion;

with Unchecked_Conversion;

procedure Unchecked_Convert4 is

procedure Unchecked_Convert4 is

  type Uint32 is mod 2**32;

  type Uint32 is mod 2**32;

  type Rec is record

  type Rec is record

    I : Uint32;

    I : Uint32;

  end record;

  end record;

  for Rec'Size use 32;

  for Rec'Size use 32;

  pragma Atomic (Rec);

  pragma Atomic (Rec);

  function Conv is new Unchecked_Conversion (Uint32, Rec);

  function Conv is new Unchecked_Conversion (Uint32, Rec);

  function F return Uint32;

  function F return Uint32;

  pragma Import (Ada, F);

  pragma Import (Ada, F);

  procedure Proc (R : Rec) is begin null; end;

  procedure Proc (R : Rec) is begin null; end;

begin

begin

  Proc (Conv (F or 1));

  Proc (Conv (F or 1));

end;

end;