Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
valued_proc.adb
blob: 7030b43c45fe79026cc1e4ad7bf6535c03a23d5b [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatdm -gnatws"
}
with
Valued_Proc_Pkg
;
use
Valued_Proc_Pkg
;
with
System
;
use
System
;
procedure
Valued_Proc
is
Status
:
UNSIGNED_LONGWORD
;
Length
:
POSITIVE
;
begin
GetMsg
(
Status
,
UNSIGNED_WORD
(
Length
));
end
;