P0329R4: Designated Initialization
[official-gcc.git] / gcc / testsuite / gnat.dg / valued_proc.adb
blob7030b43c45fe79026cc1e4ad7bf6535c03a23d5b
1 -- { dg-do compile }
2 -- { dg-options "-gnatdm -gnatws" }
4 with Valued_Proc_Pkg; use Valued_Proc_Pkg;
5 with System; use System;
7 procedure Valued_Proc is
8 Status : UNSIGNED_LONGWORD;
9 Length : POSITIVE;
10 begin
11 GetMsg (Status, UNSIGNED_WORD(Length));
12 end;