Skip to content

Commit 25ead89

Browse files
Update test/fpm_test/test_filesystem.f90
Co-authored-by: Laurence Kedward <[email protected]>
1 parent 6d9bd0c commit 25ead89

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

test/fpm_test/test_filesystem.f90

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -143,11 +143,8 @@ subroutine check_mkdir(error, path)
143143
!> Directory path
144144
character(len=*), intent(in) :: path
145145

146-
logical :: stat
147-
148146
! Directory shouldn't exist before it's created
149-
stat = (is_dir(path) .eqv. .false.)
150-
if (.not. stat) then
147+
if (is_dir(path)) then
151148
call test_failed(error, &
152149
"Directory path "//path//" already exists before its creation")
153150
end if

0 commit comments

Comments
 (0)