1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/vect19_pkg.adb b/gcc/testsuite/gnat.dg/vect19_pkg.adb
new file mode 100644
index 0000000..4c3b999
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/vect19_pkg.adb
@@ -0,0 +1,12 @@
+package body Vect19_Pkg is
+
+  function Sum (X : Arr; Y : Arr) return Arr is
+    Result : Arr;
+  begin
+    for I in X'Range loop
+      Result(I) := X(I) + Y(I);
+    end loop;
+    return Result;
+  end;
+
+end Vect19_Pkg;