1 files changed, 13 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/opt20_pkg.ads b/gcc-4.9/gcc/testsuite/gnat.dg/opt20_pkg.ads
new file mode 100644
index 000000000..2b9b3e8bd
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/opt20_pkg.ads
@@ -0,0 +1,13 @@
+package Opt20_Pkg is
+
+   procedure Write_Str (S : String);
+
+   type Fail_Proc is access procedure (S : String);
+
+   procedure My_Fail (S : String);
+
+   Fail : Fail_Proc := My_Fail'Access;
+
+   function Get_Name_String (Id : Integer) return String;
+
+end Opt20_Pkg;