1 files changed, 15 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/valued_proc_pkg.ads b/gcc-4.9/gcc/testsuite/gnat.dg/valued_proc_pkg.ads
new file mode 100644
index 000000000..d5197abf4
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/valued_proc_pkg.ads
@@ -0,0 +1,15 @@
+pragma Extend_System (Aux_DEC);
+with System; use System;
+
+package Valued_Proc_Pkg is
+
+    procedure GETMSG (STATUS : out UNSIGNED_LONGWORD;
+                      MSGLEN : out UNSIGNED_WORD);
+
+    pragma Interface (EXTERNAL, GETMSG);
+
+    pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG",
+                                    (UNSIGNED_LONGWORD, UNSIGNED_WORD),
+                                    (VALUE, REFERENCE));
+
+end Valued_Proc_Pkg;