Update test/fpm_test/test_filesystem.f90

Co-authored-by: Laurence Kedward <[email protected]>

Author: freevryheid

test/fpm_test/test_filesystem.f90

@@ -180,8 +180,7 @@ subroutine check_rmdir(error, path)
         call os_delete_dir(os_is_unix(),path)
 
         ! Check that directory is indeed deleted
-        stat = (is_dir(path) .eqv. .false.)
-        if (.not. stat) then
+        if (is_dir(path)) then
             call test_failed(error, &
                 "Directory path "//path//" cannot be deleted")
         end if