URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- { dg-do run }
|
-- { dg-do run }
|
-- { dg-options "-gnatVa" }
|
-- { dg-options "-gnatVa" }
|
|
|
with Unchecked_Conversion;
|
with Unchecked_Conversion;
|
|
|
procedure Unchecked_Convert3 is
|
procedure Unchecked_Convert3 is
|
|
|
type Word is range -(2**15) .. (2**15) - 1;
|
type Word is range -(2**15) .. (2**15) - 1;
|
type UWord is mod (2**16);
|
type UWord is mod (2**16);
|
|
|
function To_Word is new unchecked_conversion (UWord, Word);
|
function To_Word is new unchecked_conversion (UWord, Word);
|
|
|
function F return UWord is
|
function F return UWord is
|
begin
|
begin
|
return 65036;
|
return 65036;
|
end;
|
end;
|
|
|
W : Word := To_Word(F);
|
W : Word := To_Word(F);
|
|
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.