Subversion Repositories openrisc

-- { dg-do run }

-- { dg-options "-gnatVa" }

with Unchecked_Conversion;

procedure Unchecked_Convert3 is

  type Word is range -(2**15) .. (2**15) - 1;

  type UWord is mod (2**16);

  function To_Word is new unchecked_conversion (UWord, Word);

  function F return UWord is

  begin

    return 65036;

  end;

  W : Word := To_Word(F);

begin

  null;

end;