Merge branch 'delete_file' of https://github.com/perazz/stdlib into delete_file

Author: perazz

src/stdlib_io_filesystem.F90

@@ -56,6 +56,7 @@ logical function is_directory(path)
         ! Windows API interface 
         integer(c_int) :: attrs
         integer(c_int), parameter :: FILE_ATTRIBUTE_DIRECTORY = int(z'10',c_int)
+
         interface
             ! Declare the GetFileAttributesA function from kernel32.dll
             integer(c_int) function GetFileAttributesA(lpFileName) bind(c, name="GetFileAttributesA")

test/io/test_filesystem.f90

@@ -63,7 +63,7 @@ subroutine test_delete_file_existing(error)
         call delete_file(filename, state)
 
         ! Check deletion successful
-        call check(error, state%ok(), state%print())
+        call check(error, state%ok(), 'delete_file returned '//state%print())
         if (allocated(error)) return
 
         ! Check if the file was successfully deleted (should no longer exist)
@@ -85,18 +85,21 @@ subroutine test_delete_directory(error)
         filename = 'test_directory'
 
         ! The directory is not nested: it should be cross-platform to just call `mkdir`
+        print *, 'mkdir'
         call execute_command_line('mkdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         call check(error, ios==0 .and. iocmd==0, 'Cannot init delete_directory test: '//trim(msg))
         if (allocated(error)) return
 
         ! Attempt to delete a directory (which should fail)
+        print *, 'dfelete'
         call delete_file(filename, state)
 
         ! Check that an error was raised since the target is a directory
         call check(error, state%error(), 'Error was not triggered trying to delete directory')
         if (allocated(error)) return
 
         ! Clean up: remove the empty directory
+        print *, 'rmdir'
         call execute_command_line('rmdir ' // filename, exitstat=ios, cmdstat=iocmd, cmdmsg=msg)
         call check(error, ios==0 .and. iocmd==0, 'Cannot cleanup delete_directory test: '//trim(msg))
         if (allocated(error)) return