1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/reduce3.adb b/gcc/testsuite/gnat.dg/reduce3.adb
new file mode 100644
index 0000000..55934d0
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/reduce3.adb
@@ -0,0 +1,17 @@
+-- { dg-do run }
+-- { dg-options "-gnat2022" }
+
+with Ada.Containers.Vectors;
+
+procedure Reduce3 is
+
+  package Qs is new
+    Ada.Containers.Vectors (Index_Type => Positive, Element_Type => Positive);
+
+  V   : Qs.Vector;
+  Sum : Positive;
+
+begin
+  V.Append (1);
+  Sum := V'Reduce ("+", 0);
+end;