gcc-4.9/gcc/testsuite/gnat.dg/valued_proc.adb


1
2
3
4
5
6
7
8
9
10
11
12

-- { 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;