non-existent: emit warning, not error

Author: perazz

src/stdlib_system.F90

@@ -3,7 +3,7 @@ module stdlib_system
     c_f_pointer
 use stdlib_kinds, only: int64, dp, c_bool, c_char
 use stdlib_strings, only: to_c_char
-use stdlib_error, only: state_type, STDLIB_FS_ERROR
+use stdlib_error, only: state_type, STDLIB_SUCCESS, STDLIB_FS_ERROR
 implicit none
 private
 public :: sleep
@@ -110,9 +110,10 @@ module stdlib_system
 !!
 !!### Description
 !! 
-!! This subroutine deletes a specified file. If the file does not exist, or if it is a directory or inaccessible, 
-!! an error is raised. Errors are handled using the library's `state_type` mechanism. If the optional `err` argument 
-!! is not provided, exceptions trigger an `error stop`.
+!! This subroutine deletes a specified file. If the file is a directory or inaccessible, an error is raised.
+!! If the file does not exist, a warning is returned, but no error state. Errors are handled using the 
+!! library's `state_type` mechanism. If the optional `err` argument is not provided, exceptions trigger 
+!! an `error stop`.
 !!
 public :: delete_file
 
@@ -738,8 +739,8 @@ subroutine delete_file(path, err)
     ! Check if the path exists
     inquire(file=path, exist=file_exists)
     if (.not. file_exists) then
-        ! File does not exist, return error status
-        err0 = state_type(STDLIB_FS_ERROR,'Cannot delete',path,': file does not exist')
+        ! File does not exist, return non-error status
+        err0 = state_type(STDLIB_SUCCESS,path,' not deleted: file does not exist')
         call err0%handle(err)
         return
     endif

test/system/test_filesystem.f90

@@ -79,7 +79,7 @@ subroutine test_delete_file_non_existent(error)
         ! Attempt to delete a file that doesn't exist
         call delete_file('non_existent_file.txt', state)
 
-        call check(error, state%error(), 'Error should be triggered for non-existent file')
+        call check(error, state%ok(), 'Error should not be triggered for non-existent file')
         if (allocated(error)) return
 
     end subroutine test_delete_file_non_existent