sort2.adb « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/sort2.adb

blob: 084ad38bf45e46b831ab934d90ea3a7bbc97604a (plain)

--  { dg-do run }

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