sysutils_obj_DeleteDirectory Subroutine

private impure subroutine sysutils_obj_DeleteDirectory(dirname)

Uses

  • proc~~sysutils_obj_deletedirectory~~UsesGraph proc~sysutils_obj_deletedirectory sysutils_obj%sysutils_obj_DeleteDirectory iso_fortran_env iso_fortran_env proc~sysutils_obj_deletedirectory->iso_fortran_env

Deletes a directory using system commands.

Type Bound

sysutils_obj

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: dirname

Directory name

Source Code

    impure subroutine sysutils_obj_DeleteDirectory(dirname)
      !> Deletes a directory using system commands.
      use iso_fortran_env, only : stderr => error_unit
      implicit none
      character(len=*), intent(in) :: dirname                                  !! Directory name
      ! Work variables
      integer :: ierr

      call execute_command_line('rm -rf '//trim(adjustl(dirname)), exitstat=ierr)

      if (ierr.ne.0) then
        write(stderr,*) 'Unable to delete directory: '//trim(adjustl(dirname))
        error stop
      end if

      return
    end subroutine sysutils_obj_DeleteDirectory