1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/sort1.adb b/gcc/testsuite/gnat.dg/sort1.adb
new file mode 100644
index 000000000..cf0fb5d5f
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/sort1.adb
@@ -0,0 +1,27 @@
+with GNAT.Heap_Sort_G;
+function sort1 (S : String) return String is
+   Result : String (1 .. S'Length) := S;
+   Temp : Character;
+
+   procedure Move (From : Natural; To : Natural) is 
+   begin
+      if From = 0 then Result (To) := Temp;
+      elsif To = 0 then Temp := Result (From);
+      else Result (To) := Result (From);                       
+              end if;                                          
+   end Move; 
+   
+   function Lt (Op1, Op2 : Natural) return Boolean is
+   begin
+      if Op1 = 0 then return Temp < Result (Op2);
+      elsif Op2 = 0 then return Result (Op1) < Temp;
+      else return Result (Op1) < Result (Op2);
+      end if;
+   end Lt;
+   
+   package SP is new GNAT.Heap_Sort_G (Move, Lt);
+   
+begin
+   SP.Sort (S'Length);
+   return Result;
+end;