Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
conv_integer.adb
blob: 7693da0775a2492509572f4092569b4115ee6166 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatws"
}
procedure
Conv_Integer
is
S
:
constant
:=
Integer
'Size;
type Regoff_T is range -1 .. 2 ** (S-1);
for Regoff_T'
Size
use
S
;
B
:
Integer
;
C
:
Regoff_T
;
begin
B
:=
Integer
(
C
);
end
;