summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/sort2.adb
blob: 084ad38bf45e46b831ab934d90ea3a7bbc97604a (plain)
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;