gcc/testsuite/gnat.dg/valued_proc.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatdm -gnatws" }
   3
   4 with Valued_Proc_Pkg; use Valued_Proc_Pkg;
   5 with System; use System;
   6
   7 procedure Valued_Proc is
   8    Status : UNSIGNED_LONGWORD;
   9    Length : POSITIVE;
  10 begin
  11    GetMsg (Status, UNSIGNED_WORD(Length));
  12 end;