sysutils_obj_DeleteFile Subroutine

private impure subroutine sysutils_obj_DeleteFile(filename)

Uses

  • proc~~sysutils_obj_deletefile~~UsesGraph proc~sysutils_obj_deletefile sysutils_obj%sysutils_obj_DeleteFile iso_fortran_env iso_fortran_env proc~sysutils_obj_deletefile->iso_fortran_env

Deletes a file.

Type Bound

sysutils_obj

Arguments

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

File name

Source Code

    impure subroutine sysutils_obj_DeleteFile(filename)
      !> Deletes a file.
      use iso_fortran_env, only : stderr => error_unit
      implicit none
      character(len=*), intent(in) :: filename                                 !! File name
      ! Work variables
      integer :: fid
      integer :: ierr

      open(newunit=fid, file = trim(adjustl(filename)), status ='OLD', iostat = ierr)
      if (ierr.ne. 0) then
        ! Error opening file
          write(stderr,*) 'Error accessing file: '//trim(adjustl(filename))
          error stop
      else
        ! Delete file
        close(fid,status='DELETE')
      end if

      return
    end subroutine sysutils_obj_DeleteFile