program SystemTest
integer :: i
 call execute_command_line ("ls", exitstat=i)
end program SystemTest