gcc/testsuite/gnat.dg/valued_proc_pkg.ads

   1 pragma Extend_System (Aux_DEC);
   2 with System; use System;
   3
   4 package Valued_Proc_Pkg is
   5
   6     procedure GETMSG (STATUS : out UNSIGNED_LONGWORD;
   7                       MSGLEN : out UNSIGNED_WORD);
   8
   9     pragma Interface (EXTERNAL, GETMSG);
  10
  11     pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG",
  12                                     (UNSIGNED_LONGWORD, UNSIGNED_WORD),
  13                                     (VALUE, REFERENCE));
  14
  15 end Valued_Proc_Pkg;