1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/loop_optimization8_pkg1.adb b/gcc/testsuite/gnat.dg/loop_optimization8_pkg1.adb
new file mode 100644
index 000000000..3c3368dd4
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/loop_optimization8_pkg1.adb
@@ -0,0 +1,15 @@
+with Loop_Optimization8_Pkg2;
+
+package body Loop_Optimization8_Pkg1 is
+
+  Data : Loop_Optimization8_Pkg2.T
+    := new Loop_Optimization8_Pkg2.Obj_T'(Length =>1, Elements => (1 => 1));
+
+  procedure Iter is
+  begin
+    for I in 1 .. Loop_Optimization8_Pkg2.Length (Data) loop
+      Action (Loop_Optimization8_Pkg2.Index (Data, I));
+    end loop;
+  end;
+
+end Loop_Optimization8_Pkg1;