RosettaCodeData/Task/Execute-a-system-command/Ada/execute-a-system-command-2.ada

with Interfaces.C; use Interfaces.C;

procedure Execute_System is
    function Sys (Arg : Char_Array) return Integer;
    pragma Import(C, Sys, "system");
    Ret_Val : Integer;
begin
    Ret_Val := Sys(To_C("ls"));
end Execute_System;