gcc-4.8/gcc/testsuite/gnat.dg/sort2.adb


1
2
3
4
5
6
7
8
9

--  { dg-do run }

with sort1;
procedure sort2 is
begin
   if Sort1 ("hello world") /= " dehllloorw" then
      raise Program_Error;
   end if;
end sort2;