Update test/fpm_test/test_filesystem.f90

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

Author: freevryheid

test/fpm_test/test_filesystem.f90

@@ -170,11 +170,8 @@ subroutine check_rmdir(error, path)
         !> Directory path
         character(len=*), intent(in) :: path
 
-        logical :: stat
-
         ! Directory should exist before it's deleted
-        stat = (is_dir(path) .eqv. .true.)
-        if (.not. stat) then
+        if (.not. is_dir(path)) then
             call test_failed(error, &
                 "Directory path "//path//" doesn't exist before its deletion")
         end if