blob: 084ad38bf45e46b831ab934d90ea3a7bbc97604a [file] [log] [blame]
-- { dg-do run }
with sort1;
procedure sort2 is
begin
if Sort1 ("hello world") /= " dehllloorw" then
raise Program_Error;
end if;
end sort2;