1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/opt6.ads b/gcc/testsuite/gnat.dg/opt6.ads
new file mode 100644
index 000000000..f04985316
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/opt6.ads
@@ -0,0 +1,14 @@
+package Opt6 is
+
+   type String_Access is access all String;
+   type String_List is array (Positive range <>) of String_Access;
+   type String_List_Access is access all String_List;
+
+   type Command_Line_Iterator is record
+      Params   : String_List_Access;
+      Current  : Natural;
+   end record;
+
+   function Current_Parameter (Iter : Command_Line_Iterator) return String;
+
+end Opt6;