cleanup

Author: perazz

test/system/test_filesystem.f90

@@ -128,21 +128,18 @@ 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