1 files changed, 14 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/discr31.ads b/gcc-4.9/gcc/testsuite/gnat.dg/discr31.ads
new file mode 100644
index 000000000..ffc76b459
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/discr31.ads
@@ -0,0 +1,14 @@
+package Discr31 is
+
+   type Byte_List_Type is array(Positive range <>) of Integer;
+
+   type Log_Item_Type(Last : Natural) is record
+      Data : Byte_List_Type(1 .. Last) := (others => 0);
+      Link : Natural := 0;
+   end record;
+
+   type Packet_Data_Type is access Log_Item_Type;
+
+   function Log_Item(Packet : in Packet_Data_Type) return Log_Item_Type;
+
+end Discr31;